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SILICON COMPOSERS 



Quality, Service, Performance 



SC/FOX tm Forth Optimized eXpress* 



SC/FOX PCS Parallel Coprocessor System 

Uses Harris RTX 2000 tm real-time Forth CPU. 
System speeds options: 8 or 10 MHz. 
Fun-length 8 or 16-bit PC plug-in board. 
64K to 1M bytes, wait state static RAM. 
Hardware expansion, 2 50-pin strip headers. 
Operates concurrently with PC host. 
Multiple PCS board parallel operation. 
Memory accessible by PC host. 
Communication thru PC I/O memory space. 
Data transfer thru common 16K window. 
Includes FCompiler, SC/Forth optional. 
Prices start at $1,995 with software. 

SC/FOX SBC Single Board Coi 

Uses RTX 2000 real-time Forth CPU. 
System speed options: 8, 10, or 12 MHz. 
64K to 512K bytes 0-wait state static RAM 
64K bytes of shadow-EPROM space. 
Application boot loader in EPROM. 
Code converter for EPROM programs. 
RS232 serial port with handshaking. 
Centronic parallel-printer port. 
Single + 5 volt board operation. 
Two 50-pin application headers. 
Eurocard size: 100mm by 160mm. 
Includes FCompiler, SC/Forth optional. 
Prices start at $1,295 with software. 

■ 

SC/Forth tm Language v3.0 

Interactive Forth-83 Standard. 
Hardware supported multitasking. 
15-priority time-sliced multitasking. 
Supports user-defined PAUSE. 
Turnkey application support. 
Extended control structures. 
Double number extensions. 
Infix equation notation option. 
Block or text file interpretation. 
Word vectoring and module support. 
Streamed instructions and recursion. 
Automatic RTX 2000 optimizing compiler. 
Microcode definitions and case statement. 
Available for both SC/FOX PCS and SBC. 
Price $995. 





SC/FOX Support Products: 

SC/Float tm IEEE Floating Point Library 
SC/PCS/PROTO Prototype Board 
SC/SBC/PROTO Prototype Board 
SC/FOX/SP Serial-Parallel Board 
XRUN tm Utilities 
SC/SBC Serial Cable 

Harris RTX 2000 Real-Time Forth CPU 

1-cycle 16 x 16, 32-bit multiply. 
1-cycle 14-prioritized interrupts. 
One non-maskable interrupt. 
Two 256-word stack memories. 
Three 16-bit timer/counters. 
8-channel multiplexed 16-bit I/O bus. 
CMOS, 85-pin ceramic PGA oackaee. 



Ideal for embedded real-time control, high-speed data acquisition and reduction, image or signal 
processing, or computation intense applications. For additional information, please contact us at: 



Silicon Composers, Inc 



California Avenue, Suite K, Palo Alto 



(415) 322-8763 
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FORMATTING SOURCE CODE - GLEN B. HAYDON 

10 

=v Forth source code was first written in a series of blocks, with occasional comments enclosed in parentheses. Later, 
I . further comments were sometimes included in shadow screens. But if source code requires explanation in order for 
I us to use and maintain it, perhaps one should simply write all source code in the narrative form. Just indicate which 
<g) parts of the narrative should be compiled; the rest is easily readable documentation. 



A HIGH-LEVEL SINGLE-STEPPER - PHILIP BACON 

15 

^ Author Bacon gives us the definition of trouble and an answer to it, too. If a new Forth definition fails to produce 
• the intended effects, the problem may be found with a single-stepper. This is not a program you can just type in and 
I run. The strategy is to simulate the Forth interpreter and, since interpreters behave differently, you'll have to learn 
W how your Forth interpreter works. Roll up your sleeves! 

CAPTURE! - BRUCE T. NICHOLAS 

4 Sometimes the only way to learn Forth is to use it. With some encouragement from his son, the author chose to adapt 
a game originally published in BASIC. Although written by a neophyte, this version is much faster than its ancestor. 
In fact, the author put a timing loop into the code to give you a fair chance. Try to trap the deadly, stalking beasts... 



.CAME-FROM - FRANS VAN DUINEN 
29 

^ Goto-less programs using "came from" sprang to our author's mind again when a program kept trying to execute 
■ variables whose base pointer had not been initialized. Most of the CFAs were zero so, like a bad joke, his system 
I rebooted every time. He probably won'tbe the last to fool with it, but this execute will now check to see if a CFA 
is at least reasonable. 



TIME-KEEPING ROUTINE - PETER VERHOEFF 
30 

You can benefit from this program, which makes it routine to keep track of your time, even if you don' t need to strictly 
audit your hours. It records the length of your current session at the computer, the total time for the day, and totals 
for the current and previous periods. The timelog file holds almost 50 pairs of login and logout times, so even down 
time and coffee breaks can be included. 
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Forth Interest Group 

The Forth Interest Group serves both 
expert and novice members with its net- 
work of chapters, Forth Dimensions, and 
conferences that regularly attract partici- 
pants from around the world. For member- 
ship information, or to reserve advertising 
space, contact the administrative offices: 

Forth Interest Group 

P.O. Box 8231 

San Jose, California 95155 

408-277-0668 

Board of Directors 

Robert Reiling, President (ret. director) 
Dennis Ruffer, Vice-President 
John D. Hall, Treasurer 
Terri Sutton, Secretary 
Wil Baden 
Jack Brown 
Mike Elola 
Robert L. Smith 

Founding Directors 
William Ragsdale 
Kim Harris 
Dave Boulton 
Dave Kilbridge 
John James 

In Recognition 

Recognition is offered annually to a 
person who has made an outstanding con- 
tribution in support of Forth and the Forth 
Interest Group. The individual is nomi- 
nated and selected by previous recipients 
of the "FIGGY." Each receives an en- 
graved award, and is named on a plaque in 
the administrative offices. 

1979 William Ragsdale 

1980 Kim Harris 



1981 Dave Kilbridge 

1982 Roy Martens 

1983 John D. Hall 

1984 Robert Reiling 

1985 Thea Martin 

1986 C.H. Ting 

1987 Marlin Ouverson 

1988 Dennis Ruffer 

On-line Resources 

To communicate with these systems, set 
your modem and communication software 
to 300/1200/2400 baud with eight bits, no 
parity, and one stop bit, unless noted other- 
wise. GEnie requires local echo. 

GEnie 

For information, call 800-638-9636 

• Forth RoundTable (ForthNet link*) 
Call GEnie local node, then type M710 
or FORTH 

SysOps: Dennis Ruffer (D.RUFFER), 
Scott Squires (S.W.SQUTRES), Leona 
Morgenstern (NMORGENSTERN), 
Gary Smith (GARY-S) 

• MACH2 RoundTable 
Type M450 or MACH2 
Palo Alto Shipping Company 
SysOp: Waymen Askey (D.MTLEY) 

BIX (ByteNet) 

For information, call 800-227-2983 

• Forth Conference 

Access BIX via TymeNet, then type 
j forth 

Type FORTH at the : prompt 
SysOp: Phil Wasson (PWASSON) 

• LMI Conference 

Type LMI at the : prompt 
Laboratory Microsystems products 
Host: Ray Duncan (RDUNCAN) 



CompuServe 

For information, call 800-848-8990 

• Creative Solutions Conference 
Type !Go FORTH 

SysOps: Don Colburn, Zach Zachar- 
iah, Ward McFarland, Jon Bryan, 
Greg Guerin, John Baxter, John 
Jeppson 

• Computer Language Magazine Con- 
ference 

Type !Go CLM 

SysOps: Jim Kyle, Jeff Brenton, Chip 
Rabinowitz, Regina Starr Ridley 

Unix BBS's with Forth conferences 
(ForthNet links*) 

• WELL Forth conference 

Access WELL via CompuserveNet or 
415-332-6106 

Fairwimess: Jack Woehr (jax) 

• Wetware Forth conference 
415-753-5265 

Fairwimess: Gary Smith (gars) 

PC Board BBS's devoted to Forth 
(ForthNet links*) 

• East Coast Forth Board 
703-442-8695 
SysOp: Jerry Schifrin 

• North Coast Forth Board 
612-483-6711 

SysOp: Don Madson 

• British Columbia Forth Board 
604-434-5886 

SysOp: Jack Brown 

• Real-Time Control Forth Board 
303-278-0364 

SysOp: Jack Woehr 

(Continued on page 37.) 
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Advertising Manager 
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Design and Production 
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Forth Dimensions welcomes editorial ma- 
terial, letters to the editor, and comments from 
its readers. No responsibility is assumed for 
accuracy of submissions. 

Subscription to Forth Dimensions is in- 
cluded with membership in the Forth Interest 
Group at $30 per year ($42 overseas air). For 
membership, change of address, and to submit 
items for publication, the address is: Forth 
Interest Group, P.O. Box 8231, San Jose, 
California 95155. Administrative offices and 
advertising sales: 408-277-0668. 

Copyright © 1989 by Forth Interest Group, 
Inc. The material contained in this periodical 
(but not the code) is copyrighted by the indi- 
vidual authors of the articles and by Forth 
Interest Group, Inc., respectively. Any repro- 
duction or use of this periodical as it is com- 
piled or the articles, except reproductions for 
non-commercial purposes, without the written 
permission of Forth Interest Group, Inc. is a 
violation of the Copyright Laws. Any code 
bearing a copyright notice, however, can be 
used only with permission of the copyright 
holder. 

About the Forth Interest Group 

The Forth Interest Group is the association 
of programmers, managers, and engineers 
who create practical, Forth-based solutions to 
real-world needs. Many research hardware 
and software designs that will advance the 
general state of the art. FIG provides a climate 
of intellectual exchange and benefits intended 
to assist each of its members. Publications, 
conferences, seminars, telecommunications, 
and area chapter meetings are among its activi- 
ties. 

"Forth Dimensions (ISSN 0884-0822) is 
published bimonthly for $24/36 per year by the 
Forth Interest Group, 1330 S. Bascom Ave., 
Suite D, San Jose, CA 95128. Second-class 
postage paid at San Jose, C A. POSTMASTER: 
Send address changes to Forth Dimensions, 
P.O. Box 8231, San Jose, CA 95155." 



I recently got this word from Natha- 
niel Grossman: "It appears that a fulminat- 
ing debate on Forth programming style has 
been waiting to erupt." Yes, that ugly 
monster has reared its ill-documented head 
again. Have you noticed how everyone 
approves of code with good style, but resists 
being saddled with coding conventions? 
The former is something everyone is pretty 
sure they already have (and therefore ap- 
prove of), while the latter rub a Forth 
programmer's independent streak the 
wrong way. 

Our retrospective look at last year's 
real-time programming convention in- 
cluded Jef Raskin's remark that Forth' s use 
of parentheses is backwards. He said Forth 
code could be inserted parenthetically as 
the working part of a human-language es- 
say that clearly describes the task being per- 
formed. In a letter to the editor printed in the 
same issue, Bill Kibler w rote of the continu- 
ing discussions in his company about Forth 
style. He described some of the real costs of 
code that does not conform to a standard of 
style. 

Even before that issue was printed, Glen 
Haydon offered his own timely contribu- 
tion to the subject. Here you will find his 
code to let you embed Forth programs in 
clearly written (knock on wood) English 
descriptions of their function. Have a look 
at Glen's example, try it on some of your 
own code, then let us know your reactions, 
opinions, and variations. Also see Peter 
Verhoeffs time-keeping routine for a 
couple of incidental contributions to the 
discussion of style. 

* * * 

If coding style seems like weak fare, 
perhaps you should make reservations to 
attend euroFORML '89 on October 13-15 
in West Germany. The theme will be 
loosely organized around real-time appli- 
cations with, typically, plenty of leeway for 
digression to other Forth topics. The mod- 
em Hotel Selau is in a town near the village 



ofForth,about20km. west of Nuremberg. 
The conference languages will be English 
and Forth, and the proceedings will be 
published (deadline for included papers: 
October 1). Contact Marina Kern, Roter 
Hahn 42, D-2000 Hamburg 72, West Ger- 
many. Then come to the original FORML 
conference the next month in California to 
share what transpired! 

* * * 

Like a dental probe, discussion of a 
sensitive issue can make one wince; the 
closer to the problem, the stronger the re- 
action. Remember the HAL 9000? In the 
years since that fictitious AI entity's 
breakdown, psychologists have confirmed 
that things known but not acknowledged 
can, indeed, hinder problem solving. This 
issue's FIG chapters column may make 
you wince, but it may move you to become 
part of a strong local chapter near you and, 
thus, part of a stronger Forth Interest 
Group. 

As the printed voice of that member- 
ship organization, Forth Dimensions in- 
tends to represent its readers, not to decide 
for them which topics are important or 
how Forth should be written. The articles 
and essays we publish are a slice of the 
Forth commonwealth. The collective 
domain expands and shifts, and so does the 
material we print. 

Our publishing process is meant to 
foster mutual benefit and cooperative ef- 
fort. But this means that, more than most 
magazines, we rely on our readers' input. 
Letters to the editor are a great way to join 
the dialog or to offer an improvement to 
someone's ideas. And having an article of 
your own printed in these pages brings 
attention and recognition from an audi- 
ence of intelligent peers. We welcome the 
contribution you may make to our next 
volume, and hope to hear from you soon! 

— Marlin Ouverson 
Editor 
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Vintage Hardware 
Dear Marlin, 

I was pleased to read your comments 
about previous-generation machines (FD 
V/5). I have, since the first day of my intro- 
duction to computing, been working with 
either a "home computer" (TI 99/4A) or a 
PG. Mine is a Kaypro I with graphics 
screen and double-sided disks. I can't jus- 
tify the expense of a common PC, let alone 
something really current. That is because I 
have no call to ask anything of my Z80 that 
it can't do and do fast enough for the task 
at hand. 

In the past three years, FD has pub- 
lished code in six articles and eight letters 
that I have submitted. I mention that to 
point out that all the code was developed on 
one of the computers I mentioned above 
(albeit only one or two were machine spe- 
cific). 

I see no reason for you not to publish an 
occasional piece that is machine specific — 
even if the machine is an old one. I see, as 
you pointed out, good reason to publish for 
PGs as well as for current generation PCs 
and beyond. 

Thanks for all the good work. 

Sincerely, 

Gene Thomas 

4300 Bowmen Road #103 

Little Rock, AR 72210 

Dear Marlin, 

Kudos for including and eloquently 
justifying the Apple-specific article. I 
don't and haven't used one, but it was 
refreshing to see an alternative to the 
snootiness and disdain focused on us who 
stuck with our old stuff because it did what 
we wanted well enough. to justify not rush- 



ing to buy the latest, fastest, whiz-bang 
Belchfire 500 as it came out. 

On the phrase, "The rest is silence." 
You asked Michael Perry if it came from 
The Hitchhiker's Guide to the Galaxy and 
he denied it. Not surprising. The line pops 
up in HAIR, sung by the chorus in "The 
Flesh Failures (Let the Sunshine In)". One 
can also find: 
"O, I die, Horatio; 

The potent poison quite o'er -crows my spirit: 

I cannot live to hear the news from England; 

But I do prophesy the election 'lights 

On Fortinbras: he has my dying voice; 

So tell him, with the occurrents, more and less. 

Which have solicited. — The rest is silence." 

[Dies.] 

—Hamlet, Act V, Scene II 

Regards, 
Glenn Toennes 

More on Behalf of Wm. Shkspr.: 

Dear Mr. Ouverson: 

I am writing to provide you with the 
original attribution for the phrase, "The rest 
is silence," which you mentioned in the 
editorial of the January/February issue. 
The phrase comes from near the end of 
Shakespeare's tragedy Hamlet, Prince of 
Denmark, Act V, Scene II, line 370 (or 
thereabout, depending on the version). 

I hope this helps. 

Sincerely, 

Robert Lee Hoffpauer 
[Mr. Hoffpauer also provided the same ex- 
cerpt quoted above, and further jogged my 
memory with Horatio's over-quoted 
response: Now cracks a noble heart. Good 
night, sweet prince; And flights of angels 
sing thee to thy rest! 
/ knew that.— Ed.] 



Forth Style 

[The following is from a letter sent to Bill 
Kibler in response to his letter published 
in our last issue; its author kindly sent me 
a copy as of possible interest. In light of 
the current discussions about Forth style , 
I found it illuminating and encourag- 
ing.— Ed.] 

Dear Mr. Kibler, 

The latest Forth Dimensions arrived 
here yesterday, and I was able to read 
your letter about Forth programming 
style. It's, of course, not a new concern; 
Kim Harris wrote a major article about it 
many years ago, and since the start of 
Forth publishing there have been articles 
appearing regularly. 

I' ve just written a little article which is 
concerned, in part, with Forth program- 
ming style. It's been submitted to Forth 
Dimensions. Of course, there is no "Forth 
style" as such, just as there is no unique or 
even dominantliterary style in English. If 
all Forthwriters produced only code for 
embedded systems that had to fit into 4K, 
there might be a chance for a consensus 
style. If Forth were only for building 
Rapid-Files or VP-Planners, another 
style might appear. Then an enterprising 
Forth adept might produce a Forth analog 
of Grammatik II and impose a universal 
style. 

Nevertheless, we all seem to agree 
that the principal need is to make Forth 
code readable by others — even by its 
own author. The actual mechanism for 
doing this may very well be implementa- 
tion dependent. After all, we shouldn't 
expect a screen-bound Forth implemen- 
tation to host a commenting style that is 
stream-file friendly. A Forth writer work- 
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YES, THERE IS A BETTER WAY 
A FORTH THAT ACTUALLY 
DELIVERS ON THE PROMISE 

hs /forth 

POWER 

HS/FORTH's compilation and execution speeds are 
unsurpassed. Compiling at 20,000 lines per minute, it 
compiles faster than many systems link. For real jobs 
execution speed is unsurpassed as well. Even non- 
optimized programs run as fast as ones produced by 
most C compilers. Forth systems designed to fool 
benchmarks are slightly faster on nearly empty do 
loops, but bog down when the colon nesting level ap- 
proaches anything useful, and have much greater 
memory overhead for each definition. Our optimizer 
gives assembler language performance even for 
deeply nested definitions containing complex data and 
control structures. 

HS/FORTH provides the best architecture, so good that 
another major vendor "cloned" (rather poorly) many of 
its features. Our Forth uses all available memory for 
both programs and data with almost no execution time 
penalty, and very little memory overhead. None at all for 
programs smaller than 200kB. And you can resize seg- 
ments anytime, without a system regen. With the 
GigaForth option, your programs transparently enter 
native mode and expand into 1 6 Meg extended memory 
or a gigabyte of virtual, and run almost as fast as in real 
mode. 

Benefits beyond speed and program size include word 
redefinition at any time and vocabulary structures that 
can be changed at will, for instance from simple to 
hashed, or from 79 Standard to Forth 83. You can be- 
head word names and reclaim space at any time. This 
includes automatic removal of a colon definition's local 
variables. 

Colon definitions can execute inside machine code 
primitives, great for interrupt & exception handlers. 
Multi-cfa words are easily implemented. And code 
words become incredibly powerful, with multiple entry 
points not requiring jumps over word fragments. One of 
many reasons our system is much more compact than 
its immense dictionary (1 600 words) would imply. 

INCREDIBLE FLEXIBILITY 

The Rosetta Stone Dynamic Linker opens the world of 
utility libraries. Link to resident routines or link & remove 
routines interactively. HS/FORTH preserves relocata- 
bility of loaded libraries. Link to BTRIEVE METAWIN- 
DOWS HALO HOOPS ad infinitum. Our call and data 
structure words provide easy linkage. 

HS/FORTH runs both 79 Standard and Forth 83 pro- 
grams, and has extensions covering vocabulary search 
order and the complete Forth 83 test suite. It loads and 
runs all FIG Libraries, the main difference being they 
load and run faster, and you can develop larger applica- 
tions than with any other system. We like source code in 
text files, but support both file and sector mapped Forth 
block interfaces. Both line and block file loading can be 
nested to any depth and includes automatic path 
search. 



FUNCTIONALITY 

More important than how fast a system executes, is 
whether it can do the job at all. Can it work with your 
computer. Can it work with your other tools. Can it trans- 
form your data into answers. A language should be 
complete on the first two, and minimize the unavoidable 
effort required for the last. 

HS/FORTH opens your computer like no other lan- 
guage. You can execute function calls, DOS com- 
mands, other programs interactively, from definitions, 
or even from files being loaded. DOS and BIOS function 
calls are well documented HS/FORTH words, we don't 
settle for giving you an INTCALL and saying "have at it". 
We also include both fatal and informative DOS error 
handlers, installed by executing FATAL or INFORM. 

HS/FORTH supports character or blocked, sequential 
or random I/O. The character stream can be received 
from/sent to console, file, memory, printer or com port. 
We include a communications plus upload and down- 
load utility, and foreground/background music. Display 
output through BIOS for compatibility or memory 
mapped for speed. 

Our formatting and parsing words are without equal. In- 
teger, double, quad, financial, scaled, time, date, float- 
ing or exponential, all our output words have string 
formatting counterparts for building records. We also 
provide words to parse all data types with your choice of 
field definition. HS/FORTH parses files from any lan- 
guage. Other words treat files like memory, nn@H and 
nn!H read or write from/to a handle (file or device) as 
fast as possible. For advanced file support, HS/FORTH 
easily links to BTRIEVE, etc. 

HS/FORTH supports text/graphic windows for MONO 
thru VGA. Graphic drawings (line rectangle ellipse) can 
be absolute or scaled to current window size and 
clipped, and work with our penplot routines. While great 
for plotting and line drawing, it doesn't approach the ca- 
pabilities of Metawindows (tm Metagraphics). We use 
our Rosetta Stone Dynamic Linker to interface to Meta- 
windows. HS/FORTH with MetaWindows makes an un- 
beatable graphics system. Or Rosetta to your own 
preferred graphics driver. 

HS/FORTH provides hardware/software floating point, 
including trig and transcendentals. Hardware fp covers 
full range trig, log, exponential functions plus complex 
and hyperbolic counterparts, and all stack and compari- 
son ops. HS/FORTH supports all 8087 data types and 
works in RADIANS or DEGREES mode. No coproces- 
sor? No problem. Operators (mostly fast machine code) 
and parse/format words cover numbers through 1 8 dig- 
its. Software fp eliminates conversion round off error 
and minimizes conversion time. 

Single element through 4D arrays for all data types in- 
cluding complex use multiple cfa's to improve both per- 
formance and compactness. Z = (X-Y) / (X + Y) would 
be coded: XY-XY + /ISZ(16 bytes) instead of: X @ 
Y@-X@Y@ + /Z!(26 bytes) Arrays can ignore 64k 
boundaries. Words use SYNONYMS for data type inde- 
pendence. HS/FORTH can even prompt the user for 
retry on erroneous numeric input. 

The HS/FORTH machine coded string library with up to 
3D arrays is without equal. Segment spanning dynamic 
string support includes insert, delete, add, find, replace, 
exchange, save and restore string storage. 

Our minimal overhead round robin and time slice multi- 
taskers require a word that exits cleanly at the end of 
subtask execution. The cooperative round robin multi- 
tasker provides individual user stack segments as well 
as user tables. Control passes to the next task/user 
whenever desired. 



APPLICATION CREATION TECHNIQUES 

HS/FORTH assembles to any segment to create stand 
alone programs of any size. The optimizer can use HS/ 
FORTH as a macro library, or complex macros can be 
built as colon words. Full forward and reverse labeled 
branches and calls complement structured flow control. 
Complete syntax checking protects you. Assembler 
programming has never been so easy. 

The Metacompiler produces threaded systems from a 
few hundred bytes, or Forth kernels from 2k bytes. With 
it, you can create any threading scheme or segmenta- 
tion architecture to run on disk or ROM. 

You can turnkey or seal HS/FORTH for distribution, with 
no royalties for turnkeyed systems. Or convert for ROM 
in saved, sealed or turnkeyed form. 

HS/FORTH includes three editors, or you can quickly 
shell to your favorite program editor. The resident full 
window editor lets you reuse former command lines and 
save to or restore from a file. It is both an indispensable 
development aid and a great user interface. The macro 
editor provides reuseable functions, cut, paste, file 
merge and extract, session log, and RECOMPILE. Our 
full screen Forth editor edits file or sector mapped 
blocks. 

Debug tools include memory/stack dump, memory 
map, decompile, single step trace, and prompt options. 
Trace scope can be limited by depth or address. 

HS/FORTH lacks a "modular" compilation environ- 
ment. One motivation toward modular compilation is 
that, with conventional compilers, recompiling an entire 
application to change one subroutine is unbearably 
slow. HS/FORTH compiles at 20,000 lines per minute, 
faster than many languages link — let alone compile ! 
The second motivation is linking to other languages. 
HS/FORTH links to foreign subroutines dynamically. 
HS/FORTH doesn't need the extra layer of files, or the 
programs needed to manage them. With HS/FORTH 
you have source cods and the executable file. Period. 
"Development environments" are cute, and necessary 
for unnecessarily complicated languages. Simplicity is 
so much better. 

HS/FORTH Programming Systems 

Lower levels include all functions not named at a higher 



level. Some functions available separately. 
Documentation & Working Demo 

(3 books, 1000 + pages, 6 lbs) $ 95. 

Student $145. 

Personal optimizer, scaled & quad integer $245. 

Professional 80x87, assembler, turnkey, $395. 



dynamic strings, multitasker 
RSDL linker, 
physical screens 
Production ROM, Metacompiler, Metawindows 

$495. 



Level upgrade, price difference plus $ 25. 

OBJ modules $495. 
Rosetta Stone Dynamic Linker $ 95. 

Metawindows by Metagraphics (includes RSDL) 

$145. 

Hardware Floating Point & Complex $ 95. 

Quad integer, software floating point $ 45. 

Time slice and round robin multitaskers $ 75. 



GigaForth (80286/386 Native mode extension) $295. 

HARVARD 
SOFTWORKS 

PO BOX 69 
SPRINGBORO, OH 45066 
(513) 748-0390 
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ing from floppy disks might not feel com- 
fortable shuffling floppy disks in order to 
call upon elaborate shadow screens. 

I don't write Forth code for a living, so 
I have a little leeway and the luxury to look 
at the artistic side of Forthwriting. Yes, I 
feel that writing Forth code and its com- 
mentary can be an artistic endeavor. That's 
not to say that the world of Forth comment- 
ing is crying out for its e.e. cummings or 
William Burroughs. But even technical 
manual writing, a well-known rite of com- 
menting, has its good and its bad practitio- 
ners, and even a technical manual can be 
beautiful. Psychologists now affirm that 
each of us has a sense of beauty inside 
himself, and the current fashion allows 
each person free expression of that sense. 
Beauty and clarity are not antithetical. 
Let's encourage commenting as a creative 
activity, no less laudable than the code 
writing itself. 

Best! 

Nathaniel Grossman 
Department of Mathematics 
UCLA 

Los Angeles, California 90024 

Outa' Space 
Dear Editor, 

I am in need of help from my fellow 
FIGers . I have been working, on and off, on 
a program that was to produce printed 
circuit artwork with computer-driven rout- 
ing, as well as other bells and whistles. The 
output is to an Epson-compatible printer or 
plotter. I hoped to release this program as 
an aid to the hardware experimenter. 

My problem is that I have run into a 
space limitation. I am using F83 on a PC 
clone, and have reached the top of usable 
memory. I have utilized every space-sav- 
ing technique I can think of, including 
reusing the disk buffers for a circular queue 
when necessary. When compiling, I use the 
assembler as a temporary module, and do 
not include the editor; but I still end up with 
a .COM file of >57K, not including the 
>150K of memory usage outside the Forth 
segment. The program is only partially 
operational, and at present consists of three 
text files totalling 4000 lines of code. There 
is still more to be added, but without more 
room it cannot be done. 

The only solution to my problem seems 
to be an overlay manager for F83. Portions 
of the program are mutually exclusive, and 



would lend themselves to an overlay proce- 
dure. 

If I bang my head against the wall long 
enough, I may be able to come up with 
something — but I would like to complete 
this project before the end of the decade. If 
anyone out there can help me, or is inter- 
ested in the program, please drop me a line. 

George Boudreau 
P.O. Box 431 
Kentville, Nova Scotia 
Canada B4N 3X3 

Korean Forth Is Natural 

Sir: 

I am enclosing my membership dues 
and photocopies of two articles my col- 
league, Jin-Mook Park, and I have written 
to introduce Korean Forth, which is a trans- 
lated version of fig-FORTH. Our apprecia- 
tion goes to the Forth inventor, Charles 
Moore, and all others who contributed to 
the development of Forth. 

Since the syntax of Forth is similar to 
that of the Korean language, it is the appro- 
priate computer language to be translated 
into Korean. Even though some of the other 
computer languages have been translated 
into Korean, they look strange to Koreans 
because of their English-like syntax. Thus, 
we translated fig-FORTH into Korean for 
Apple 11+ compatibles, which have the 
capability to display lower-case letters. The 
character-generation ROM was modified 
to replace the lower-case patterns with 
those of 24 Korean characters. 

There is a special notation for the Ko- 
rean language. A syllable is expressed with 
2-5 characters, and is normally written as a 
cluster character. Cluster characters are 
very difficult to display on the monitor, 
almost as difficult as displaying Chinese 
characters. Fortunately, Korean characters 
can be placed one by one as in Roman 
languages, with the characters in a queue. 
Although the latter writing method is not 
popular, it enabled us to implement Korean 
Forth with minimum modification to the 
hardware, i.e., replacement of the charac- 
ter-generation ROM. 

Our first article describing Korean 
Forth was published by the Korean com- 
puter magazine micro software in Septem- 
ber 1987. We described Forth briefly by 
comparing the syntaxes of computer lan- 
guages like LOGO and Forth with that of 
the Korean language, and gave word-for- 



word translations of Forth words. The sec- 
ond, two-part, article was published in 
Scientific Eastern Asian in February and 
March 1988. The first part, "A Computer 
Understands the Korean Language" intro- 
duces the general features of Korean 
Forth, with printouts performed by L I S T , 
vlist, and index. The second part, 
"Let's Program in Korean," is for the in- 
troduction of Forth programming. 
Screens containing definitions for a turtle 
graphics demonstration are listed and 
explained. 

Forth is so simple and elegant that we, 
as an electronics technician and a chemist, 
could implement Korean Forth. Many 
thanks for the great works at FIG: publi- 
cizing and advancing the Forth language. 

Sincerely, 

Chong-Hong Pyun 

Inorganic Chemistry Lab, KAIST 

P.O. Box 131, DongDaeMun 

Seoul, 130-600 

Korea 
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1989 ROCHESTER FORTH CONFERENCE 

ON 

INDUSTRIAL AUTOMATION 

June 13-17, 1989 
University of Rochester 
Rochester, New York 

CALL FOR PAPERS 

There is a call for papers on the following topics: ^ * mf> *fl%~4* 

Forth-based sensor systems industrial security sySJ»»l^" , te 

process control materials handling V ^ V \ J^W^- 

robotics tele-operated machinery*^ 4 ^! .? 

In addition, papers on all aspects of Forth application, implemcr^faf oba%i -Im^- * x 
technology are being solicited. These include biomedical, avionjljand. * A 
space-based, business and other applications; conventional prol^i^r ^ 
implementations and Forth machines; and the continuing develoJfrhejM of. 
Forth tools and the ANS X3J14 Forth Standard. /j \"-^> I— — — 

Papers may be presented in either platform or poster sessions. P^4|g$^Spt a" 
200 word abstract by May 15th. Papers should be received by Jun&lsf, aftf^acre 
limited to a maximum of four single spaced, camera-ready pa^J^kgej i h 
papers may be presented at the Conference but should be sub^nilSfecW^;- ' |^ *\ 
refereed Journal of Forth Application and Research. AbstratAs aria^g^fcjQ jS| : K' k ^ 
should be sent to the Conference Chairman: Lawrence P. F6^ 1^ .; |rM i|pte wr \ t\ 
Applied Forth Research, Inc. 70 Elmwood Avenue, Roches 
14611, or, electronically to L.Forsley on BIX or LFORSLEY on GENie. 
For more information please contact the Conference Chairman or call (716)-235-0168, 




REGISTRATION 

The registration fee and conference services includes all 
sessions, meals, and the Conference papers. Lodging is 
available at local motels or in the UR dormitories. 
Registration will be from 4-11 PM on Tuesday, June 
13th in the Wilson Commons, and from 8 AM 
Wednesday, June 14th in Hutchison Hall, where 
sessions will be held. 



Name 



Address 



Telephone: Wk ( 
Hm( 



Registration: 

□ $200.00 □ $150.00 (UR Staff and 

IEEE Computer Society) 
IEEE # 

□ $50.00 (full-time students) 

□ Vegetarian Meal Option 



Total 

Conference Services 



$ 200.00 
Dormitory housing, 5 nights 



□ $125.00 single 

□ non-smoking roommate 
Total 

Amount Enclosed 
MC/Visa# 



□ $100.00 double 

□ 5K Fun Run 

$___ 

$ 

exp 



Please make checks payable to the Rochester Forth Conference. Mail 
your registration to Rochester Forth Conference, Box A, 70 Elmwood 
Avenue, Rochester, NY 14611, USA. 
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Forth-79 & FPC 

FORMATTING 

SOURCE CODE 

GLENB. HAYDON - LA HONDA, CALIFORNIA 



There is no agreement about what 
constitutes a good form for source code in 
any language. Programming languages are 
too cryptic for easy understanding by the 
English reader. Some form of documenta- 
tion is often included that, in one way or 
another, tries to help the reader. Having 
examined a variety of styles used by a 
number of programming languages, I have 
experimented with several for use with 
Forth programs. 

In the Forth community, source code 
was first written in a series of blocks with 
occasional comments enclosed in paren- 
theses. Further comments were sometimes 
included in shadow screens. These blocks 
or screens corresponded to the size of the 
screen Charles Moore had available when 
he first created Forth. Recently, Forth 
source code has been written as text files 
but it still can only be viewed in pages, 
according to the device used. Even in 
scrolled text, the displayed window into the 
text is a sort of a page. We are always back 
to pages. 

In many journals, source code is pre- 
sented in some way separate from the nar- 
rative text. The code may be inserted be- 
tween lines of text as examples or included 
in an appendix. If one assumes that the 
publication of source code requires some 
sort of a narrative text, perhaps one should 
simply write all of the source code as a 
narrative. 

Conventional source code for most 
languages uses some sort of enclosing 
symbols for comments. This technique 
would seem to have things backwards. 
What is needed is some sort of enclosing 
symbols to indicate what part of the narra- 
tive should be compiled. The rest of the 
narrative is simply easily readable docu- 



mentation. (This presumes that the pro- 
grammer can write English, which may not 
always be the case.) 

With the simplicity of Forth, I have 
decided to see what such a technique would 
be like. I have selected a piece of code I 
wrote some time ago and published in the 
FORML Proceedings 1981 . That code was 
written in fig-FORTH. It really needed 
updating to the code I presently use and 
seems to be a good, short piece to use as an 
example. 



"All the information 
is easily located where 
it belongs" 



The source code can be easily compiled 
in MVP-FORTH by a routine to bring a text 
file into a buffer and a slight modification to 
interpret. With some slight modifica- 
tions to FPC version 2.5, the same source 
code has compiled successfully. There are 
as many ways of bringing a text file into a 
Forth program as there are programs. I will 
leave that to the option of the user. 

The enclosing symbols are the opening 
and closing braces. The opening brace is 
simply a text marker and requires no defini- 
tion. The closing brace is an immediate 
Forth word to search for the next opening 
brace from which to start compiling again. 
The change required in interpret is to 
point the interpreter to the text buffer in 
memory and to start interpreting at the first 
open brace. 



: } 

BEGIN 

TIB @ >IN @ 

+ 1 >IN +! 
C@ 123 = 
UNTIL ; 
IMMEDIATE 



: FILE -COMPILE 

TIB @ >R >IN @ >R 
FILE-BUFFER TIB ! 
BLK ! >IN ! 
[COMPILE] } <INTERPRET> 
R> >IN ! R> TIB ! ; 

One could easily eliminate all the 
documentation by rewriting the source file 
to include only the parts enclosed within 
braces. This can be done with a simple 
filter function, which can be easily imple- 
mented in Forth. But this would defeat the 
purpose of including documentation. 

If one develops his code as a text file , he 
could easily edit his code to conform with 
a style. And, really, the best time to do that 
is while the code is fresh in his head. In 
addition to an introductory note and an 
overview of the code, each function is pre- 
sented in a fixed, general format of records 
with variable-length fields: name, narra- 
tive functional definition, implementa- 
tion, tests, and comments. The specifica- 
tions for a program should be a narrative 
description. Such a narrative might even 
help the programmer focus on the goals of 
his program. The actual names provide a 
label for the beginning of a variable-length 
block. The narrative functional definition 
is closely related to the implementation 
and should help the programmer under- 
stand his code. Test vectors are rarely 
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included with any code or documentation, 
but with them one can, for example, deter- 
mine that the function does what was in- 
tended, that the boundary conditions do not 
cause problems, that the stack depths be- 
fore and after are as defined, etc. Finally, a 
comment should be included to suggest 
why some particular algorithm has been 
used or why some unusual code has been 
included. 



The discipline of completing the pro- 
gramming job by adopting such a style 
would meet many common problems with 
understanding and maintaining code. All of 
the necessary information is easily located 
where it belongs. Also, publication is the 
ultimate goal of much research; why not 
incorporate that style in the source code and 
have the job done? 



The serial-day-compression source 
code which follows is presented as an ex- 
ample for consideration. In the end, the 
style adopted is left up to the programmer 
and his management Any style could be 
used. The important thing is that some style 
be adopted which serves as many functions 
as possible. This source code exists and 
works. It is not vaporware — try it! 



SERIAL DAY COMPRESSION 

by Glen B. Haydon 

A serial day can be converted to a 1 6-bit value. The converted 
value can conserve memory space and make calculation of the 
period between days easy. The following algorithm is adapted 
from one presented in Sty & Telescope (April 1981, page 312), 
and was published in FORML Proceedings 1981. 

The military sometimes refers to a Julian Day when they 
really mean a serial year day. It would take more than 16-bits to 
encode a Julian Day — in that form of reckoning, we are nearly up 
to 2,300,000 and each date includes an additional fractional part 
to indicate the time. Julian days also start at noon. This program 
provides an offset from the Julian Day, with March 1 , 1 952 being 
day 123. By beginning with March first, the leap-year day is the 
immediately preceding day. The time fraction is also dropped 
and the days are calendar days. The fractions in the original al- 
gorithm are used to calculate leap years and the variable lengths 
of months. They have been scaled to integer values and then trun- 
cated to give the proper values for a 16-bit Forth system. 

The source is divided into four parts: 

1 . Two mathematical operators in addition to the program kernel 
are desirable. 

2. Encoding a 16-bit serial day is accomplished with ?DATE 
which first prompts for the input in a prescribed format, parses 
the input to three double-precision values with $-N and then 
these values are scaled and combined with the single function 

TO. SERIAL. DAY. 

3. Decoding a 16-bit serial day is more complicated because it is 
necessary to determine if the year is a leap year and, accord- 
ingly, make a number of adjustments. This part leaves three 
values on the stack ready to be formatted for output. 

4. Finally, the three decoded values can be formatted in a variety 
of ways of which one example is given. 

Additional Mathematical Operators 

D/ 

A double-precision number is divided by a single-precision un- 
signed number and leaves a double-precision value. 

Implementation 

{ 

: D/ ( d u — d ) 

SWAP OVER /MOD >R SWAP 
U/MOD SWAP DROP R> ; } 



Test 

4. 2 D/ D. 

Will print a double-precision value of 2. 
Comment 

The function illustrates how to write uncommon specific code 
for an application. 



D* 

A double-precision number is multiplied by a single-precision 
unsigned number to leave a double-precision value. 

Implementation 

{ 

: D* ( d u — d ) 

DUP ROT * ROT ROT U* ROT + ; 

} 

Test 

4. 2 D* D. 

Will print the double-precision value 8. 
Comment 

The result could overflow if the original values are too large. 
This is not a problem in this application, so no error checking 
is done. 



Encoding a Serial Day 

TO. SERIAL. DAY 

Convert a series of double-precision values representing the 
month, the day, and the year in the form MM/DD/YY to a 16- 
bit serial day. 

Implementation 

[ 

: TO. SERIAL. DAY ( d d d — u ) 
ROT DUP 3 < IF 13 + SWAP 1 - 

ELSE 1+ SWAP THEN 
52 - 365.25 ROT D* 100 D/ DROP 
SWAP 30.6001 ROT D* 10000 D/ DROP + + 



} 
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Test 

3. 30. 60. TO. SERIAL. DAY 
Should leave a single 16-bit value. 

Comment 

This is the heart of the encoding. No error checking is done. The 
result can be checked after input and reentered if necessary. The 
value 13 is introduced to offset the months in the calculation to 
begin with March. 



S-N 

Parse the next character string according to the delimiter pro- 
vided, and convert it into a double-precision value. 

Implementation 

{ 

: $-N ( c — d ) 

WORD ROT CONVERT DDROP ; } 

Test 

: TEST 

." Enter numerical value— > " 
PAD 10 EXPECT BL $-N D. ; 
Should print the value entered. 

Comment 

The function is a factor in parsing a date input formatted with 
slashes between the values and terminating with a blank. 



?DATE 

Provide a prompt to remind the user of the format for the input, 
and convert the input to a serial day. 

Implementation 

{ 

: ?DATE 

." (MM/DD/YY) -> " 
QUERY 47 $-N 47 $-N 
BL $-N TO. SERIAL. DAY ; 

} 

Test 
?DATE 

Will issue the desired prompt and leave a 1 6-bit serial day, which 
can be printed with . date to be coded later. 

Comment 

These several routines have no error checking and some means 
should be provided to ensure that the intended date has been en- 
tered. There is no possible way to assure that the intended date 
has been input, so one might as well inspect the result and elimi- 
nate the overhead for error checking. 

Decoding Routines 

YEARS 

From a serial day value, calculate a test year as a single-precision 
integer from which it can be determined if a leap year must be 
considered. 




CONCEPT 4 



8086,8088 Native 
Code generator. 
The easy way to 
optimize Laxen & 
Perry F83, including 
the hi-level flow 
control words... If .. 
Then, Do .. Loop, 
Begin..Again. 

$20.00 

CONCEPT 



forthWlNDOWS* 

Text and Data Windows 
90 Windows/ per available memory 

Popup Windows 
Save and Restore windows from files 

Mouse Support 
Circular Event Que for Mouse/keyboard 
DOS services/ directory 
F83, HSFORTH, FPC supported 
PLUS 



$49.95 

All programs require DOS 2.0 or higher 
All programs include 5 1/4" disk and manual 
Send check or money order to : 

4, INC. PO BOX 20136 VOC 



P V M 8 3 



Prolog 

Virtual 

Machine 

Add productivity, 
flexibility, and auto- 
mated reasoning 
Fully interactive 
between Forth and 
Prolog code 

$69.95 

AZ 86341 
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Implementation 

{ 

: YEARS ( serial-day — test-year ) 
100 D* 36525 D/ DROP ; 

} 

Test 

123 YEARS 

Should leave the value . 

Comment 

Making the value a double-precision integer is needed for scaling. 
The truncation takes care of the leap year. 



DAYS /YEARS 

For a given year, calculate the number of days in that year. 

Implementation 

{ 

: DAYS /YEARS ( year — days ) 
36525 D* 100 D/ DROP ; 

} 

Test 

123 YEARS DAYS /YEARS 

Should leave the number of days in the selected year. 
Comment 

The scaling avoids the need for floating point. 



TEST. YEARS 

From the serial day and the test year calculated above, determine the 
actual year and the number of remaining days. 

Implementation 

{ 

: TEST. YEARS 

( serial-day test-year — year days ) 
DDUP DAYS /YEARS - DUP 123 < 

IF DROP 1- SWAP OVER DAYS/YEARS - 

ELSE ROT DROP 

THEN SWAP 52 + SWAP ; 

} 

Test 

123 TEST. YEARS 

Should convert the serial day to the year 52 and the remaining days 
in that year. 

Comment 

The number of years determined is offset to begin with 52, which 
in this case is the year the sample date should give. 



MONTHS 

From the remaining days after the test year has been removed, 
determine a test month. 

Implementation 
{ 

: MONTHS ( days — days test-month ) 
DUP 3267963. ROT D* 
10000 D/ 10000 D/ DROP ; 

} 

Test 

123 MONTHS .S 

Should show the days and a value for a test-month. 
Comment 

The rather large value for determining a test month must be scaled 
down in two steps on a 16-bit processor. 

DAYS .TO.M/D/Y 

Going back to the calculation leaving years and days, calculate the 
actual number of months and days. 

Implementation 

{ 

: DAYS .TO.M/D/Y 

( years days — years days months ) 
MONTHS SWAP OVER 
30.6001 ROT D* 10000 
D/ DROP - SWAP DUP 13 > 
IF 13 - ROT 1+ ROT ROT 
ELSE 1- THEN ; 

} 

Test 

52 123 DAYS .TO.M/D/Y .S 

The three values should be left on the stack ready to be output. 
Comment 

Again the use of double-precision integers with scaling is used 
rather than floating point Note the 13 is used to gain the offset to 
the effective year ending at the end of February. 

CONV. SERIAL 

Convert a serial day to a form ready for formatting. 

Implementation 

{ 

: CONV . SERIAL 

( serial-day — years days months ) 
DUP YEARS TEST. YEARS 
DAYS .TO.M/D/Y ; 

} 
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Test 

123 CONV. SERIAL 

Should complete the conversion from the serial day to 3/1/52. 
Try other values. 

Comment 

With the values left on the stack, they may be used in many 
ways, according to the requirements of the application. 

Format and Output 

OUT . DATE 

Format the date values into a double-precision value, which can 
then be formatted with the primitive formatting tools, and 
finally type it 

Implementation 

{ 

: OUT. DATE ( years days months — ) 
100 * + 100 D* ROT D+ 
<# # # 47 HOLD # # 47 HOLD # # #> 
TYPE ; 

) 

Test 

52 1 3 OUT. DATE 

Should output the beginning date in the form 3/1/52. 



Comment 

A variety of other output formats could be implemented, accord- 
ing to the desires of the user. 



.DATE 

From a serial day as it may be retrieved from a database, print the 
date in the selected format. 

Implementation 
{ 

: .DATE ( serial-day — ) 
?DUP 

IF CONV. SERIAL OUT. DATE 

ELSE ." 00/00/00" THEN ; EXIT 

} 

Test 

123 .DATE 

Should print the date 3/1/52. 
Comment 

The program can be rearranged to output the result in any 
different format, such as DD/MM/YY. If the serial day has a 
zero value, as in an unused zero-initialized date field, the zero 
date is printed without any conversion. 



SDS FORTH for the INTEL 8051 

Cut your development time with your PC using SDS Forth based environment. 
Programming Environment 

□ Use your IBM PC compatible as terminal and disk server 

□ Trace debugger 

□ Full screen editor 

Software Features 

□ Supports Intel 805x, 80C51FA, N80C451, Siemens 80535, Dallas 5000 

□ Forth-83 standard compatibility 

□ Built-in assembler 

□ Generates headerless, self starting ROM-based applications 

□ RAM-less target or separate data and program memory space 

SDS Technical Support 

□ 100+ pages reference manual, hot line, 8051 board available now 

Limited development system, including PC software and 8051 compiled software with manual, for $100.00. 
(generates ROMable applications on top of the development system) 

SDS InC, 2865 Kent Avenue #401, Montreal, QC, Canada H3S 1M8 (514) 461-2332 
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Forth-83 

A HIGH-LEVEL 

SINGLE-STEPPER 

PHILIP BACON - GAINESVILLE, FLORIDA 



SCR # 21 

( Utilities ) 

1 : . BYTE ( 8b -- ) 

2 BASE @ SWAP HEX US>D <# # # #> TYPE SPACE BASE ! ; 

3 : .ADDRESS ( 16b -- ) 

4 BASE @ SWAP HEX US>D <# # # # # #> TYPE SPACE BASE ! 

5 : DUMP ( addr u -- ) 

6 OVER + OVER DO 

7 I OVER - 8 MOD 0= IF CR CR I .ADDRESS 3 SPACES THEN 

8 I C§ .BYTE 

9 LOOP 

10 DROP ; 
11 

12 : SCAN ' HERE OVER - DUMP ; 
13 

14 --> 
15 



SCR # 22 

( Case words ) 

1 : = IF COMPILE OVER COMPILE = [COMPILE] IF COMPILE DROP 

2 IMMEDIATE 

3 : FIN COMPILE EXIT [COMPILE] THEN ; IMMEDIATE 
4 

5 --> 

6 

7 

8 

9 
10 
11 
12 
13 
14 
15 



Wen a newly defined Forth word 
fails to produce the intended effects, the 
source of the difficulty can sometimes be 
found by a single-stepper, a program that 
executes the words of a colon definition 
one-by-one, displaying the contents of the 
stack and pausing at each step until a key- 
board command causes it to continue. 

When I switched from programming a 
Commodore 64 to an IBM XT, I wanted a 
single-stepper immediately, without wait- 
ing to learn 8088 assembly language. So I 
designed the single-stepper shown in 
screens 23-29. The basic strategy is to 
simulate the Forth interpreter. A variable 
IP serves as a mock instruction pointer. An 
array returns tack is used to simulate 
the return stack; the parameter stack simu- 
lates itself. The only Forth words that do not 
simulate themselves are those that manipu- 
late the instruction pointer or the return 
stack in unusual ways. 

Dissect Your Interpreter 

Since different Forth interpreters be- 
have differently, this is not a program you 
can just type in and run. To write a single- 
stepper that works for you, you will have to 
find out just how your Forth interpreter 
behaves. One way to do this is to read the 
source code for your Forth. An easier alter- 
native is to run a few test words and observe 
the results. Here is an example of the kind 
of detective work to be done. 

The Forth-83 words that interact with 
the return stack are >R, R>, R@, QUIT, 
ABORT, ABORT " , EXIT, and the run-time 
actions of : , ; , and ; code. Additional 
possibilities are the run-time words for do, 
LEAVE, LOOP, and +LOOP. An examina- 
tion of the word list for the Forth at hand 
turns up yet more possibilities: 2>R, 2R>, 



; S, RO, RP@, RP ! , and unravel. 

To this list of words that might need to 
be simulated, we must append words that 
use the instruction pointer in special ways. 
These include the words that push compiled 
constants to the parameter stack, and the 
run-time words compiled by IF, ELSE, 
THEN, BEGIN, WHILE, REPEAT, AGAIN, 

and . " . In the Forth at hand, these run-time 
words are lit, dlit, Obranch, 
branch, and ( .") . 

Any words in the list that are defined in 



terms of other words in the list do not 
need to be simulated. We now start prob- 
ing. 

The word SCAN (screen 21) displays 
the compiled form of colon definitions. 
In response to 
: ALPHA DUP ; 
SCAN ALPHA 

the following is displayed: 

7B25 D9 05 19 05 CB 03 
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NGS FORTH 

A FAST FORTH, 
OPTIMIZED FOR THE IBM 
PERSONAL COMPUTER AND 
MS-DOS COMPATIBLES. 



STANDARD FEATURES 
INCLUDE t 

•79 STANDARD 

•DIRECT I/O ACCESS 

•FULL ACCESS TO MS-DOS 
FILES AND FUNCTIONS 

•ENVIRONMENT SAVE 
& LOAD 

•MULTI -SEGMENTED FOR 
LARGE APPLICATIONS 

•EXTENDED ADDRESSING 

•MEMORY ALLOCATION 
CONFIGURABLE ON-LINE 

•AUTO LOAD SCREEN BOOT 

•LINE & SCREEN EDITORS 

•DECOMPILER AND 

DEBUGGING AIDS 

•8088 ASSEMBLER 
•GRAPHICS & SOUND 
•NGS ENHANCEMENTS 
•DETAILED MANUAL 
•INEXPENSIVE UPGRADES 
•NGS USER NEWSLETTER 

A COMPLETE FORTH 
DEVELOPMENT SYSTEM. 



PRICES START AT $70 



NEW<*>HP-150 & HP-110 
VERSIONS AVAILABLE 



NEXT GENERATION SYSTEMS 
P.O.BOX 2987 
SANTA CLARA/ CA. 95055 
(408) 241-5909 



SCR # 23 

( STEP ) 

1 DECIMAL 

2 VARIABLE IP 

3 : IP+ 2 IP +! ; 

4 : SKIP 4 IP + ! ; 

5 VARIABLE LEVEL 

6 VARIABLE MARK 

7 VARIABLE RETPTR 

8 : :RP@ RETPTR @ 

9 : :RP! RETPTR ! 

10 VARIABLE :R0 

11 CREATE RETURNSTACK 

12 HERE :R0 ! 

13 — > 
14 

15 



64 ALLOT 



SCR 

1 
2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



# 24 

( STEP ) 

DECIMAL 

R@ RETPTR @ § ; 
R> :R@ 2 RETPTR +! ; 
>R -2 RETPTR +! RETPTR @ 
: IP § DUP 2+ :>R § 2+ IP 
;S :R> IP ! -2 LEVEL +! 
PRIMARY IP § @ IP+ EXECUTE 
BRANCH IP § 2+ @ IP • ; 
BRANCH IF SKIP ELSE 
LIT IP @ 2+ @ SKIP 
DLIT IP @ 2+ DUP @ 
2>R SWAP :>R :>R ; 
2R> :R> :R> SWAP ; 

--> 



2 LEVEL +! 



BRANCH THEN 



SWAP 2+ @ 6 IP +! 



SCR # 25 

( STEP 

1 HEX 
: (DO) 



2 
3 
4 
5 
6 
7 
8 
9 
10 
11 
12 
13 
14 
15 



IP @ 2+ @ :>R OVER 8000 + : >R - 8000 SWAP 
:(LOOP) :R> 1+ DUP 8000 = IF 
DROP :R> DROP :R> DROP SKIP 

ELSE :>R : BRANCH THEN ; 
:(+LOOP) :R> OVER OVER + DUP :>R 0< 

IF 0< NOT SWAP 0< NOT ELSE 0< SWAP 0< 



;>R SKIP 



IF :R> DROP :R> DROP :R> DROP SKIP ELSE 
: LEAVE :R> DROP :R> DROP :R> IP ! ; 
:I :R> DUP :R@ + SWAP : >R ; 
:J RETPTR § DUP 6 + @ SWAP 8 + @ + ; 
:(;CODE) :R> LATEST NAME> ! -2 LEVEL +! 
DUMP @ CONSTANT DOCOL 
DECIMAL — > 



THEN AND 
: BRANCH THEN 
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SCR # 26 
( STEP ) 



1 


PACE 


IP @ §> 








2 




• 


R@ 


-IF IP + :R@ 


FIN 


3 






R> 


-IF IP+ :R> 


FIN 


4 






>R 


-IF IP+ :>R 


FIN 


5 






;s 


-IF 


;s 


FIN 


6 






EXIT 


-IF 


;s 


FIN 


7 






BRANCH 


-IF 


BRANCH 


FIN 


8 






OBRANCH 


-IF 


OBRANCH 


FIN 


9 






(DO) 


-IF 


(DO) 


FIN 


10 






( LOOP ) 


-IF 


( LOOP ) 


FIN 


11 






( +LOOP ) 


-IF 


( +LOOP ) 


FIN 


12 






LEAVE 


-IF 


LEAVE 


FIN 


13 






I 


-IF IP+ :I 


FIN 


14 






J 


-IF IP+ :J 


FIN 


15 






( ;CODE) 


-IF 


( ; CODE ) 


FIN 



SCR # 
( 



27 

STEP 



1 




LIT 


-IF 


:LIT 


FIN 


2 




DLIT 


-IF 


:LIT 


FIN 


3 




2>R 


-IF 


:2>R 


FIN 


4 




2R> 


-IF 


:2R> 


FIN 


5 




RO 


-IF 


:R0 


FIN 


6 




RP@ 


-IF 


:RP@ 


FIN 


7 




RP! 


-IF 


:RP! 


FIN 


8 




QUIT 


-IF 


QUIT 


FIN 


9 @ DOCOL = 


IF : 


: ELSE 


PRIMARY THEN 



10 

11 

12 
13 
14 
15 



SCR # 
( 
1 

2 : 

3 : 
4 

5 : 

6 : 
7 

8 : 

9 
10 
11 
12 
13 
14 
15 



28 

STEP ) 
HEX 

CR CR OUT ! 
HTAB ( n -- ) 

DUP OUT § < IF 
U.S DEPTH IF 
DISPLAY 

IP @ DUP 
SELECT 

-1 SWAP 

51 ( Q 
53 ( S 

52 ( R 
43 ( C 
DROP 



18 HTAB 
.ADDRESS 



CR ELSE OUT €> - THEN SPACES 
DEPTH 2- DO I PICK U. -1 +LOOP 
" ( " U.S CR 
LEVEL @ SPACES @ >NAME ID. ; 



THEN 



= IF 
= IF 
■IF 
= IF 



DROP QUIT 
LEVEL @ 2+ 
LEVEL @ 
LEVEL @ 2- 
DROP ; 



MARK 
MARK 
MARK 



FIN 
FIN 
FIN 
FIN 



DECIMAL 



SCR # 29 

( STEP ) 

1 DECIMAL 

2 VARIABLE ACTION 

3 : STEP 

' ACTION ! ACTION IP ! LEVEL ! 
:R0 @ :RP! 
BEGIN 

PACE [ ACTION 2+ ] LITERAL IP @ - 
WHILE 

LEVEL §> MARK @ > NOT IF 

DISPLAY BEGIN KEY SELECT UNTIL 
THEN 
REPEAT ; 



4 

5 

6 

7 

8 

9 
10 
11 
12 
13 

14 ;S 
15 



BRYTE I 
FORTH | 

INTEL I 
8031 i 

MICRO- 
CONTROLLER! 




FEATURES 

— FORTH-79 Standard Sub-Set 
—Access to 8031 features 
—Supports FORTH and machine 

code interrupt handlers 
—System timekeeping maintains 
time and date with leap 
year correction 
—Supports ROM-based self- 
starting applications 



COST 

1 30 page manual — $ 30.00 
8K EPROM with manual— $100.00 

Postage paid in North America 
Inguire for license or guantity pricing 



Bryte Computers, Inc. A 

P.O. Box 46, Augusta, ME 04330 x 
(207) 547-3218 
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By using ' we find that the compilation 
address of dup is 0519 (hex), and the 
compilation address of ; S is 03CB. Com- 
parison of these values with the compiled 
form of ALPHA suggests that compilation 
addresses are compiled in low-high byte 
order, that every colon definition is pref- 
aced by the bytes D9 and 05, and that ; 
compiles ; S. 

The next test requires two words: 

: BETA R> DUP 
.ADDRESS >R ; 

: GAMMA BETA ; 

The output of SCAN GAMMA is: 
7B46 D9 05 32 7B CB 03 

The compilation address of beta is 
7B32. Execution of GAMMA prints 7B4A. 
This shows that when the interpreter en- 
counters a colon definition, it adds two to 
the value of the instruction pointer before 
pushing the value to the return stack. Our 
simulator must treat IP and RETURN- 



STACK similarly. 

The next word is used to find out how 
branches are compiled. 

: DELTA 

IF DUP ELSE SWAP THEN ; 

The output of SCAN delta is: 
7B54 D9 05 8A 01 60 7B 19 05 
7B5C 77 01 62 7B 08 05 CB 03 

The compilation addresses of branch 
and BRANCH are 0177 and 01 8 A, respec- 
tively. Knowing this, we can see that if 
compiles branch followed by a destina- 
tion address, and that else compiles 
branch followed by a destination address. 
Our simulation of BRANCH must put the 
compiled address into IP if the top of the 
parameter stack is zero; otherwise, the value 
of IP must be incremented by four. The 
simulation of BRANCH must put the com- 
piled address into IP. 

The next test word exhibits the compiled 
form of a DO loop. 



WE'RE LOOKING 
FOR A FEW GOOD 
^ HEADS. . 




EhSH.FlND 



ASSOCIATES 

Forth Recruiters 

70 Elmwood Ave./ Rochester, NY 14611/(716) 235-0168 



: EPSILON 

DO LEAVE LOOP ; 

The output of SCAN EPSILON is: 
7B6E D9 05 E0 01 7A 7BDF 03 
7B76 A8 01 74 7B CB 03 

The compilation address of (DO) is 
01E0, that of leave is 03DF, and that of 
(LOOP) is 01A8. We see that (DO) is 
followed by the address of the loop exit, 
and (LOOP) isfollowedbytheaddressof 
the first location within the loop. 

Execution of the next test word shows 
that (DO) pushes the do loop parameters 
to the return stack. 

: OMEGA 
5 2 DO 
CR I . 

R> DUP .ADDRESS 
R> DUP .ADDRESS 
R> DUP .ADDRESS 
>R >R >R 
LOOP ; 

Execution of OMEGA yields: 

2 7FFD 8005 7BB2 

3 7FFE 8005 7BB2 

4 7FFF 8005 7BB2 

At run time, (DO) pushes three items 
to the return stack: the address of the loop 
exit, the sum of 8000 and five, and the 
value 8000 -(5 -2). Each time (LOOP) is 
encountered, the value on the top of the 
return stack is incremented by one. When 
the result is 8000 (hex), the loop is exited. 
Execution of I produces the sum of the 
first two values on the top of the return 
stack. When leave executes, control 
goes to the third address from the top. Our 
simulations of these words must treat RE - 
TURNSTACK similarly. 

If FIVE is defined as: 
: FIVE 5 ; 

execution of SCAN five yields 
7B24 D9 05 42 01 05 00 CB 03 

Since 0142 is the compilation address of 
LIT, we see that the simulation of LIT 
must push the value contained in the two 
bytes following LIT, and increment that 
value of IP by four. 

You might imagine that ( . " ) — 
which is the run-time word for . " — 
would need to be treated something like 
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LIT. But in this version of Forth, ( . " ) is 
a compound word, and therefore can simu- 
late itself. 

Using the Single-Stepper 

Once we have simulations for the words 
that need them, we put all in a word called 
PACE. Suppose IP contains an address at 
which the compiling address of a Forth 
word resides. If PACE is invoked and the 
Forth word is not a compound word, that 
word is executed. If the word is defined by 
a colon definition, the address of the first 
word in the colon definition is put into IP 
and the value of a variable LEVEL is the 
principal building block for the single- 
stepper STEP, which is used as follows. 

Suppose you have defined a Forth word 
shaky that doesn't work as you intend. Put 
any parameters needed by shaky onto the 
parameter stack and type step shaky. 
The contents of the parameter stack and the 
first word in the definition of shaky will 
be displayed. If you now press the R key, 
the displayed word will be executed, a new 
picture of the stack will be shown, and the 
next word to be executed will be displayed. 
Press the R key repeatedly, until the word 
that produces the bad output (TROUBLE, 
say) is executed. Quit (by pressing Q) and 
start over. But this time, when TROUBLE is 
displayed, do not execute it by pressing R; 
instead, press S. If TROUBLE is a com- 
pound word, the first word in its definition 
is displayed. The descent into the definition 
of TROUBLE is indicated by extra indenta- 
tion. To further localize the source of your 
difficulties, step through the definition of 
trouble by repeatedly pressing R. To 
complete the execution of whatever word 
you are currently stepping through, press C. 



Philip Bacon teaches mathematics at 
the University of Florida. He has used a 
homebrew Forth to prototype assembly 
language programs for the Commodore 
64. 




For Programming Professionals: 

an expanding family of 
compatible, high-performance, 
Forth- 8 3 Standard compilers 
for microcomputers 

For Development: 

Interactive Forth-83 Interpreter/Compilers 

• 16-bit and 32-bit implementations 

• Full screen editor and assembler 

• Uses standard operating system files 

• 400 page manual written in plain English 

• Options include software floating point, arithmetic 
coprocessor support, symbolic debugger, native code 
compilers, and graphics support 

For Applications: Forth-83 Metacompiler 

• Unique table-driven multi-pass Forth compiler 

• Compiles compact ROMable or disk-based applications 

• Excellent error handling 

• Produces headerless code, compiles from intermediate 
states, and performs conditional compilation 

• Cross-compiles to 8080, Z-80, 8086, 68000, 6502, 8051, 
8096, 1802, and 6303 

• No license fee or royalty for compiled applications 

For Speed: CForth Application Compiler 

• Translates "high-level" Forth into in-line, optimized 
machine code 

• Can generate ROMable code 

Support Services for registered users: 

• Technical Assistance Hotline 

• Periodic newsletters and low-cost updates 

• Bulletin Board System 

Call or write tor detailed product information 
and prices. Consulting and Educational Services 
available by special arrangement. 



urn 



Laboratory Microsystems Incorporated 

Post Office Box 10430, Marina del Rey, CA 90295 
Phone credit card orders to: (213) 306-7412 



Overseas Distributors. 

Germany: Forth-Systeme Angelika Flesch, Titisee-Neustadt, 7651-1665 
UK: System Science Ltd., London, 01-248 0962 
France: Micro-Sigma S.A.R.L., Paris, (1) 42.65.95.16 
Japan: Southern Pacific Ltd., Yokohama, 045-314-9514 
Australia: Wave-onic Associates, Wilson, W.A., (09) 451-2946 
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CAPTURE! 

BRUCE T. NICHOLAS - RALEIGH, NORTH CAROLINA 



A 

-Zjl fter studying several books about 
the Forth programming language, I de- 
cided the only way to really learn Forth 
would be to attempt to write a program 
using it About this time, my eight-year- 
old son wanted me to help him write a 
program to draw on the screen. We first 
wrote a BASIC program similar to the 
familiar Etch-a-Sketch, then I decided to 
translate it into Forth. This was easier than 
I thought, so I decided to write a more 
difficult program. 

I took a BASIC program and rewrote it 
to run with Laxen & Perry's F83. This is a 
public-domain implementation, available 
on many bulletin boards. I got my copy 
from PC-SIG (1030 E. Duane, Suite J, 
Sunnyvale, CA 94086; the two-disk set 
263 and 264). 

In this game, you may choose to play 
against up to three opponents, deadly 
beasts which stalk you as you try to trap 
them while staying outof their reach. This 
version of the game is neither an elegant 
nor an efficient translation into Forth, but 
it is faster than the BASIC version. In fact, 
I had to put a timing loop into the Forth 
code to slow the game down. I built in nine 
different speeds (not in the original 
game), as well as three levels of difficulty. 

When the game is played, a title page 
shows which keys move your piece 
around the screen. Use the keypad, as 
shown below, to move. Pressing 8 moves 
your screen marker up, 1 moves it diago- 
nally down to the left, etc. Press any other 
key to stop moving. 

Obstacles are placed randomly on the 
screen. You can push these around, but the 
beasts cannot. Your job is to build walls 



7 8 9 

4 5 6 

12 3 
Keyboard "joystick" 



completely enclosing the beasts. The game 
ends when none of the beasts can move (or 
if you get eaten). 

Programming Notes 

Obstacles, beasts, and your marker are 
placed randomly on the text screen. The 
program pauses to allow the player to study 
the game board and plan a strategy. 

In the highest level of difficulty, each 
beast gets a chance to move every time you 
do. At lower levels you are given extra 
moves. 



"/ had to put in a 
timing loop to slow 
the game." 



Screens one through five contain gen- 
eral-function words. The game itself be- 
gins on screen six. Screens seven and eight 
display the tide and get the required input to 
play the game. Screen nine sets up a white- 
on-blue game board and outlines the board 
with double box characters. 

Screens 12-16 contain the words that 
move the marker around the board. 



MOVE_HERO (screen 17) moves your 
piece around the board, and pushes the 
obstacles. 

move_beast (screen 18) contains 
the routine for moving the beasts. The 
beasts follow you, but not perfecdy. They 
have to be able to move around obstacles, 
even if that entails backing up. After 
checking to see if the beast is right next to 
you (too bad for you!), a value of -1, 0, or 
1 is selected for X and Y. This will modify 
the beast's position coordinates so that 
there is a higher probability of it stepping 
toward you than away from you. A check 
is made in the chosen location for an 
ASCII 32 (space). If an obstacle or another 
beast is found there, the beast searches in 
adjacent squares for a favorable place to 
move. When no beasts can move, you 
have won the game, lose? and win? 
(screen 19) check for these conditions and 
take the appropriate action. 

Code on screen 23 will create a 
CAPTURE.COM file. This eliminates the 
need to enter Forth and load the program 
each time you wish to play. 

During the game, the elapsed time is 
displayed. 

Credits and Requirements 

Capture is designed to run on black- 
and-white or color monitors in 80-column 
mode. This version was written for the 
IBM PC. 

The original version of this game was 
called Trap'Em, written by Rob Smythe in 
Applesoft BASIC for the Apple II com- 
puter, and was published in Nibble (vol. 2, 
no. 4, 1981). 
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\ CAPTURE 
1 

2 This ga«e is based on the prograi originally written in 



24 



4 Applesoft BASIC by Rob Ssythe for the Apple II and published 
6 sn NIBBLE saqazine Vol , 2/No. 4 / i ?B1 . I wrote this version of 



3 the program as a learning experience. It is written using 
9 

10 the public domain version of FORTH - F33 by Perry * Laxen. 
11 
12 

13 Bruce T. Nicholas 

14 

15 



BTN 04-14-1988 \ CAPTURE BTN 04-14-1988 

This gaie is based on the proqrat originally written sn 
Applesoft BASIC by Rob Ssiythe for the Apple II and published 
m NIBBLE sagazine Vol. 2/No. 4/1981. I wrote this version of 
the program as a learning experience. It is written using 
the public dosain version of FORTH - F83 by Perry * Lasen. 



Bruce T. Nicholas 



\ CAPTURE - Load screen 
1 

2 : CLS DARK : 



BTN 04-16-1988 \ CAPTURE - Load screen 



BTN 04-16-1988 



4 



CLS 



6 


2 LOAD 


CR . 


( Tiie words loaded ) 


\ Tiner 


7 


3 LOAD 


CR . 


( Code words loaded ) 


\ Code words 


8 


4 LOAD 


CR 


( Randodi generator loaded ) 


\ Randon 


9 


5 LOAD 


CR 


( Matrix words loaded ) 


\ Matrix 


10 6 


22 THRU 


CR 


( CAPTURE loaded ) 


\ Load CAPTURE 


11 


23 LOAD 


CR 


( CAPTURE.COM file built ) 


\ Applic. file 


12 




CR 






13 




CR 


( Type GAME to play or ) 


\ Play ga«e 


14 




CR 


( type BYE to exit Forth ) 




15 




CR 


( and then type CAPTURE ) 





CLS 



2 LOAD 

3 LOAD 

4 LOAD 

5 LOAD 

22 THRU 

23 LOAD 



Clear the screen and hoae cursor 



Ti«e words loaded 
Code word 5 loaded 
Rando* generator loaded 
Matrix words loaded 
CAPTURE loaded 

CAPTURE.COM application file built and saved 



\ TIME OF DATE WORDS 
1 

2 VARIABLE HOURS VARIABLE MINUTES 

3 : SHRS HOURS 3 ; 

4 : SMIN MINUTES S ; 

5 : SSEC SECONDS i ; 
6 

7 CODE GET I ME AX POP AL AH MOV 33 INT CX PUSH DX PUSH 

8 AH AH SUB AL PUSH NEXT END-CODE 
9 

10 : TIMES 44 GET1ME DROP 256 /MOD ROT 256 /MOD ; 
11 

12 : TIME! TIMES HOURS ! MINUTES ! SECONDS ! DROP ; 
13 

14 : TIME TIMES 60 » + 60 * + SHRS 60 * SMIN + 60 ♦ SSEC + 

15 60 /MOD . ." Minutes and ' . ." Seconds " DROP ; 



26 

BTN 04-14-1983 \ TIME OF DATE WORDS 
VARIABLE SECONDS 



BTN 04-18-1988 



SHRS 
SMIN 
SSEC 



Variables used by tifter. 
Fetch the hours. 
Fetch the minutes. 
Fetch the seconds. 



CODE GETIME Set the tue of day. 



TIMES 
TIME! 
TIME 



Get the tiie. 

Store the tise in Hours, Minutes and seconds. 

Get the ti*e and forsat into isinutes and 
seconds to show elapsed time during gaie. 
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•3 \ CODE WORDS - POKE, PEEK, EQUIP, CGA? 



2 CODE POKE (S byte sequent address — ) 

3 BX POP ES POP AX POP ES: AL IBX] MOV NEXT END-CODE 

4 CODE PEEK (S sequent address - byte ) CODE PEEK 

5 AX AX SUB BX POP ES POP ES: [BX] AL MOV 1PUSH END-CODE 

i CODE EQUIP IS - equip ) CODE EQUIP 

7 17 INT 1PUSH END-CODE \ list of hardware on stack 



BTN 04-20-1988 \ CODE WORDS - POKE, PEEK, EQUIP, CGA? BTN 04-14-1988 

CODE POKE Used to put a byte of data to the Video screen. 

Used to get a byte of data fro» the screen. 



9 HEX 

10 : CGA? (S — video-buffer-address attrib ) \ B&W or Color 

11 EQUIP 30 AND 30 = IF OBOOO ( 8/W MONITOR) 70 ( ATTRIB ) 

12 ELSE 0B800 ( COLOR MONITOR) 71 f ATTRIB ) THEN ; 

13 DECIMAL 

14 CGA? CONSTANT ATTRIB 

15 CONSTANT SEGMENT 



CGA? 



Puts a list of hardware on the stack. Used to 
determine the type of attached »onitor. 



Used to set the ie§ory location of the attached 
video *onitor. 



\ RANDOM GENERATOR - RAND, RANDOM, EKEY, WKEY 
1 

2 VARIABLE SEED TIMES + + » SEED ! 

T 

J 

4 : RAND (S -- rando» no. ) 

5 SEED 3 5421 t 1+ DUP SEED ! ; 
6 

7 : RANDOM (S n — rando* no. ) 

8 RAND FLIP SWAP MOD ; 
9 

10 : EKEY KEY DUP 0= IF DROP KEY THEN ; 
11 

12 : WKEY EKEY 0= IF DROP THEN ; 
13 
14 
15 



BTN 04-20-1988 \ RANDOM GENERATOR - RAND, RANDOM, EKEY, WKEY BTN 04-18-1988 
VARIABLE SEED Used as a seed for the randoi generator. 
: RAND 



Used for the randoa generator. 

Randot nusber generator. 

Reads the extended keyboard keys. 
Wait for any key press. 



: RANDOM 

\ Extended keys ; EKEY 
: WKEY 

5 29 
\ MATRIX WORDS - MATRIX, ELEMENT, FIND-LENGTH etc BTN 04-14-1988 \ MATRIX WORDS - MATRIX, ELEMENT, FINS-LENGTH etc BTN 04-13-1938 
1 

n 
L 

3 
4 

c 

J 

& 

7 
8 
9 
10 
11 



14 



: MATRIX !S 2 bytes per entry > 
CREATE (S #rows #colunns - ) 
20UP , , \ Reseiber the dieensions 

t 2> ALLOT ; \ Jrows I *cols elements 

: ELEMENT (S row* col# Matrix - "eleaent ) 
DUP >fi 3 

ROT 2» * SWAP 2» + 
R> 4 f + ; 

24 80 MATRIX SCREEN 
! FIND-LENGTH (S address - length ) 

SCREEN DUP 2+ 3 SWAP 3 t ; 
: FILL-ARRAY (S array-index -) 

DO I 2» I SCREEN ELEMENT ' LOOP ; 



MATRIX 



: ELEMENT 



Create a two disensional array. 



Locate any data in the satrix 



24 GO MATRIX SCREEN 
: FIND-LENSTH 

; FILL-ARRAY 



Build data isage of the screen. 
Find the length of the data aatrix. 

Fill the satrix with data. 
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4 

c 

J 

6 

7 
8 
9 

10 
11 
12 
13 
14 
15 



\ CAPTURE - Variables 

VARIABLE LEVEL 
VARIABLE END 
VARIABLE X 
VARIABLE LOSE 



XKEY 

1 END 

1 LOSE 

CREATE H 

CREATE V 



VARIABLE SPEED 

VARIABLE XKEY 

VARIABLE V 

VARIABLE DIFFCNT 

CNT ! 

X ! 

ANOTHER 

ALLOT 
ALLOT 



BTN 04-14-1938 \ CAPTURE - Variables BIN 04-14-1983 

Variables used in the program and their initial value. 



VARIABLE iBEASTS 

VARIABLE CNT 

VARIABLE WIN 

VARIABLE ANOTHER 

V 

WIN 



CAPTURE - TITLE & INSTRUCTIONS 



i. ■ 


TITLE 


11 


1 AT 


H 


CAPTURE" 


3 







4 AT 


H 


Trap the beasts before they get you!" 


4 




y 




6 AT 


H 


Box thea in completely to win." 


c 

J 







8 AT 


1 


Use the numeric keypad to iove HERO." 


6 


KEYS 


11 


11 AT 


H 


7 9 " 18 11 AT 30 EMIT 


7 




11 


12 AT 




i H 
t i * 


8 




11 


13 AT 


« 


i » 


9 




11 


14 AT 




_ — . — « 12 14 at 17 EHIT 


10 




11 


15 AT 


a 


. 1 . " 24 14 AT 16 EMIT 


11 




11 


16 AT 


■ 


1 B 
■ ) I 


12 




11 


17 AT 


H 


1 3 * 18 17 AT 31 EMIT 


13 




7 

•> 


20 AT 


■ 


Tap any other key to stop HERO." 


14 






22 AT 


H 


Press ESC key to quit anytine." ; 


15 


CONTINUE 


5 


24 AT 


K 


Press any KEY to continue." WKEY ; 



BTN 04-16-1988 \ CAPTURE - TITLE k INSTRUCTIONS BTN 04-18-1988 

: TITLE Display the title page on the screen. 



KEYS 



Show the cursor control keys. 



CONTINUE 



Pauses the display so the screen can be read. 



8 

\ CAPTURE - TITLE k INSTRUCTIONS 



BTN 04-20-1988 \ CAPTURE - TITLE k INSTRUCTIONS 



BTN 04-18-1988 



2 : INVERSE 3 DO : INVERSE 

3 30 DO ATTRIB SEGMENT 23 I + 160 J » + POKE 2 +L00P 

4 LOOP ; 

5 : INVERSE! 9 DO ; INVERSE! 

6 34 DO ATTRIB SEGMENT 1621 I + 160 i t + POKE 2 +L0QP 

7 LOOP ; 
8 

9 : ASK KEY 48 - 1 MAX HIN DUP 48 + EMIT ; : ASK 

10 : IBEASTS? 20 AT ." Nunber of beasts ( 1, 2, or 3 ) ? " : IBEASTS? 

11 3 ASK KBEASTS ! ; 

12 : DIFFICULTY? 22 AT ." Level of difficulty ( 1 to 3 Easies ; DIFFICULTY? 



i 

14 : SPEED? 24 AT ." Set speed ( 1 to 9 Slowest ) 

15 9 ASK SPEED 1 36 20 AT ; 



SPEED? 



Reverse video for title. 
Reverse video for keypad area. 

Read the key and liiiit the input. 
Store the nunber of beasts to be used. 

Store the difficulty level to be used. 

Store the speed of the qase. 
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\ CAPTURE - BORDERS and COLOR 



BTN 04-14-1983 \ CAPTURE - BORDERS and COLOR 



BTN 04-14-1988 



THERE (S h v - ) 

SWAP SEGMENT -ROT SCREEN ELEMENT S ; 



9 

10 
11 
12 
13 
14 
15 



TfcB 



79 



205 I THERE POKE 
205 1 23 THERE POKE LOOP ; 
: SIDES 23 1 DO 186 I THERE POKE 

186 79 I THERE POKE LOOP ; 
: CORNERS 201 THERE POKE 

200 23 THERE POKE 

187 79 THERE POKE 
133 79 23 THERE POKE ; 

: BORDERS T&B SIDES CORNERS ; 

: COLOR 3340 1 DO 23 SEGMENT I POKE 2 +LQOP ; 



THERE Location to put the screen data. 

T&8 Draw the top and bottom of the display box. 

SIDES Draw the right and left sides of the display box. 

CORNERS Draw the four corners of the display box. 



BORDERS Draws a coaplete box around the border. 
COLOR Set screen attribute bytes to white on blue. 



10 

\ CAPTURE - OBSTACLES, BEAST 
1 

2 : H0R2 78 RANDOM 1+ ; 

3 : VERT 22 RANDOM 1+ ; 

4 : HB H CNT 3 2* + ; 

5 : VB V CNT 3 2*+; 



34 

BTN 04-14-1938 \ CAPTURE - OBSTACLES, BEAST 



BTN 04-14-1988 



! horiz index to each beast ! 
! vert index to each beast ) 



a 

7 
8 
9 

10 
11 
12 
13 
14 
15 



OBSTACLES 400 DO 177 H0R7 VERT THERE POKE LOOP ; 

VACANT? BEGIN HORZ DUP HB ! VERT DUP VB ! THERE PEEK 
BL = UNTIL ; 

BEAST -1 CNT ! BEGIN 1 CNT + ! VACANT? 
200 DO BL HB } VB 3 THERE POKE 

42 HB 3 VB 3 THERE POKE LOOP 

CNT 3 IBEASTS 3 1- = UNTIL ; 



HORZ Generate randos nutber for horizonal location. 

VERT Generate randos nueber for vertical location. 

HB Horizonal index to each beast. 

VB Vertical index to each beast. 

OBSTACLES Place obstacles on the screen. 

VACANT? Check if the location is enpty. 

BEAST Place the nuaber of beasts wanted on the screen. 
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\ CAPTURE - HERO and Misc 
1 
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BTN 04-14-1938 \ CAPTURE - HERO and Misc 



BTN 04-14-1988 



n 

i. 


V+l 


V 


3 + 3 1+ ; 


\ Index 4 2* 


V+l 


Vertical location + 1. 


T 

J 


V-l 


V 


8 + 3 1- ; 




V-l 


Vertical location - 1. 


4 


H+l 


H 


8 + 3 1+ ; 




H+! 


Horizonal location + 1. 


c 

J 


H-l 


H 


8 + a 1- ; 




H-l 


Horizonal location - 1. 


6 


VO 


1 1 

V 


8 + 3 ; 




VO 


Vertical location. 


7 


HO 


H 


8 + 3 ; 




HO 


Horizonal location. 


8 


HI 


H 


8 + ; 




HI 


Horizonal location. 


9 

10 


VI 


V 


3 + ; 




VI 


Vertical location. 


11 
12 


OFOKE 




HO VO THERE FOKE ; 




OPOKE 


Put the data to the screen where 


13 


HERO 




4 CNT ! VACANT? 




HERO 


Look for a place to put our HERO 


14 


200 DO BL OPOKE 








15 






2 OPOKE LOOP ; 
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! 

3 ! 



6 
7 
3 
9 
10 
11 
12 
13 
14 
15 



\ 



12 

CAPTURE - UP*, DOWN 

VACANT DUP BL = ; 
UP" VO DO 
HO 

OPOKE 177 HO 
2 HO 



BIN 04-14-1988 



V-l I - THERE PEEK VACANT IF 

V-l I - THERE POKE 

V-l THERE POKE 

V-l VI 1 LEAVE ELSE 



JO 

CAPTURE 



UP* 



UP', DOWN 



BTN 04-14-1988 



Is location blank? 
Hove one space up. 



42 = IF LEAVE THEN 



THEN LOOP ; 



DOWN 



OPOKE 



23 VO - DO 
HO 

177 HO 



DOWN 



V+l I + THERE PEEK VACANT IF 
V+l I + THERE POKE 
V+l THERE POKE 
V+l VI ! LEAVE ELSE 



Move one space doan. 



13 

CAPTURE 
LEFT 
OPOKE 



42 = IF LEAVE THEN 



LEFT, RIGHT 



THEN LOOP ; 



6 

7 
8 
9 

10 
11 
12 
13 
14 
15 



HO DO 

H-l I - VO 

177 H-l I - VO 

2 H-l VO 

H-l HI ! 

42 = IF LEAVE THEN 



RIGHT 79 HO - DO 

H+l I + VO 

OPOKE 177 H+l I + VO 

2 H+l VO 

H+i HI ! 

42 = IF LEAVE THEN 



37 

BTN 04-14-1988 \ CAPTURE - LEFT, RI6HT 

: LEFT Move one space left. 



BTN 04-14-1988 



THERE PEEK VACANT IF 
THERE POKE 
THERE POKE 
LEAVE ELSE 
THEN LOOP ; 



THERE PEEK VACANT IF 
THERE POKE 
THERE POKE 
LEAVE ELSE 
THEN LOOP ; 



: RIGHT Move one space right. 



\ 
1 

2 ; 

7 

J 

4 
5 
6 

7 
8 

9 : 

10 
11 
12 
13 
14 



14 

CAPTURE - UP.LEFT, UPRIGHT 



UP,LEFT VO DO 

H-l I - V-l I - THERE PEEK VACANT IF 

OPOKE 177 H-l I - V-l I - THERE POKE 

2 H-l V-l THERE POKE 

H-l HI ! V-l VI ! LEAVE ELSE DUP 

42 = IF DROP LEAVE THEN 

186 = IF LEAVE THEN THEN LOOP ; 
UPJUGHT VO DO 

H+l I + V-l 1 - THERE PEEK VACANT IF 

OPOKE 177 H+l I + V-l I - THERE POKE 

2 H+l V-l THERE POKE 

H+l HI ! V-l VI ! LEAVE ELSE DUP 

42 = IF DROP LEAVE THEN 

186 = IF LEAVE THEN THEN LOOP ; 



38 

BTN 04-14-1988 \ CAPTURE - UP_LEFT, UPJU6HT BTN 04-14-1988 

: UP LEFT Move one space up and one space left. 



UP_RIGHT Move one space up and one space right. 
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15 

\ CAPTURE - DOWNLEFT, DOWN RIGHT 

1 : DOWN LEFT 23 V'O - DO 



BTN 04-14-1988 \ CAPTURE - DOWN LEFT, DOWN.RIGHT BIN 04-14-1988 

! DDMN_LEFT Move one space down and one space left. 



7 

10 
11 
12 
13 
14 
15 



H-l I - V+l I + T.HERE PEEK VACANT IF 

OPOKE 177 H-l I - V+l I + THERE POKE 

2 H-l V+l THERE POKE 

H-l HI ! V+l VI ! LEAVE ELSE DUP 

42 = IF DROP LEAVE THEN 

186 = IF LEAVE THEN THEN LOOP ; 

DOWN.RIGHT 23 VO - DO 

H+l I + V+l I + THERE PEEK VACANT IF 

OPOKE 177 H+l I + V+l I + THERE POKE 

2 H+l V+l THERE POKE 

H+l HI ! V+l VI ! LEAVE ELSE DUP 

42 = IF DROP LEAVE THEN 

186 = IF LEAVE THEN THEN LOOP ; 



DOWN.RIGHT Move one space down and one space right. 



16 

\ CAPTURE - FUNCTION 



2 : 


FUNCTION 








T 




DUP 


72 




IF DROP 


UP A EXIT THEN 


4 


DUP 


80 




IF DROP 


DOWN EXIT THEN 


5 


DUP 


77 




IF DROP 


RI8HT EXIT THEN 


6 


DUP 


75 




IF DROP 


LEFT EXIT THEN 


7 


DUP 


71 




IF DROP 


UP LEFT EXIT THEN 


a 


DUP 


73 




IF DROP 


up'risht exit then 


9 


DUP 


79 




IF DROP 


DGWJ.LEFT EXIT THEN 


10 


DUP 


81 




IF DROP 


DOWN.RIGHT EXIT THEN 


11 


DUP 


27 




IF DROP 


END ! EXIT THEN 


12 


DROP 


n 


OPOKE ; 




13 












14 












15 
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BTN 04-14-1988 \ CAPTURE - FUNCTION 
: FUNCTION 



BTN 04-14-1988 



Check for the cursor key pressed and iove 
accordingly. 



17 

\ CAPTURE - HOVE.HERO and disc 
1 

2 : HOVE.HERO 
3 
4 



41 

BTN 04-14-1988 \ CAPTURE - HOVE.HERO and disc BTN 04-14-1988 

: HOVE.HERO Hove the HERO. He can push obstacles. 



X=Q 

YOO 



j 
6 

7 

a 

9 

10 

n 

12 

13 : XOO 

14 

15 



KEY? IF EKEY DUP XKEY ! ELSE XKEY S THEN FUNCTION ; 
Y=0 4 RANDOH 1-2/ Y ! ; 
4 RANDGH 1-2/ X ! ; 

THEN 100 RANDOH DUP 



0> IF -1 Y 1 ELSE 1 Y 

60 < IF DROP ELSE 

75 > IF Y ' ELSE Y i NEGATE Y ! THEN THEN j 

0> IF -1 X ! ELSE 1 X ! THEN 100 RANDOH DUP 

70 < IF DROP ELSE 

80 > IF X ! ELSE X i NEGATE X ! THEN THEN ; 



Y=0 6enerate randot nuiiber if Y equals 0. 

X=0 Generate rando« nutber if X equals 0. 

YOO Generate randoa nmber if Y does not equal 0. 

XOO Generate rando* nuiber if X does not equal 0. 
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13 42 
\ CAPTURE - MOVES, MOVE8EAST, DELAY & SET.LEVEL BIN 04-14-1938 \ CAPTURE - MOVEB, MOVEJEAST, DELAV i SET.LEVEL BIN 04-14-1988 
1 



MOVES HB 3 HO - DUP 0= IF DROP X=0 ELSE XOO THEN 

VB 3 VO - DUP 0= IF DROP Y=0 ELSE YOO THEN 

HB 3 X 3 + V8 9 Y 3 + THERE PEEK 

BL = IF BL HB 3 VB 3 THERE POKE 

42 HB 3 X 3 + VB 3 V J + THERE POKE 
HB 3 X 3 + HB ! 
VB 3 Y 3 + VB ! THEN j 



MOVEB 



Hove the beasts to an eipty space. 



10 : HOVE.BEAST -1 CNT I BEGIN 1 CNT +! MOVES 

11 CNT 3 IBEASTS 3 1- = UNTIL ; 
12 

13 : DELAY 25 SPEED 3 9 * < DO LOOP ; 
14 

15 : SET LEVEL DIFFCNT DUP 3 1- DUP ROT ! : 



19 



\ Speed of gase 



HOVE_BEAST Move the beasts. They cannot *ove obstacles, 
but fust iove around then. 

DELAY Speed of gane loop. 

SET LEVEL Set gate difficulty level. 



\ CAPTURE - LOSE? and WIN? 
1 

2 : LOSE? -1 CNT ! BEGIN 1 CNT +! 3 DO 3 DO 

3 HB 3 I 1- + VB 3 i 1- + THERE PEEK 

4 2 = IF END < AT 4 24 ." " 
4 24 AT . " YOU LOSE " LOSE ! LEAVE ELSE 1 LOSE 
THEN LOOP LOOP 

CNT 3 IBEASTS 3 1- = UNTIL : 



43 

BTN 04-14-1988 \ CAPTURE - LOSE? and HIM? 

: LOSE? Check for loosing the owe. 



b 
7 
8 
9 

10 
11 
12 
13 
14 
15 



WIN? -1 CNT ! WIN I BEGIN 1 CNT +! 3 DO 3 DO 
HB 3 I 1- + VB 3 J 1- + THERE PEEK 
32 = IF LEAVE ELSE 1 WIN +! THEN LOOP LOOP 
CNT 3 IBEASTS 3 1- = UNTIL WIN 3 IBEASTS 3 9 » = 
IF 4 24 AT ." YOU WIN " END ! THEN ; 



WIN? 



Check for winning the gate. 



BTN 04-14-1988 
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\ CAPTURE - Y/N, TELL 



44 

BTN 04-15-1988 \ CAPTURE - Y/N, TELL 



b 
7 
8 
9 
10 
11 



Y/N BEGIN KEY UPC DUP 78 = IF 1 ANOTHER ! DROP EXIT THEN 
89 = IF -1 ANOTHER ! THEN ANOTHER 3 <> UNTIL ; 



TELL 

CLS TITLE INVERSE 

KEYS INVERSE1 

CONTINUE 24 AT 32 SPACES 

IBEASTS? DIFFICULTY? SPEED? 

FIND-LENGTH FILL-ARRAY : 



\ Instructions, 
\ high-light 
\ and 

\ initialization 
\ routine 



Y/N 



Check for a YES or NO answer. 



BTN 04-14-1983 



TELL Display the instructions and ask for 

nunber of beasts, difficulty level 
and speed of play. 



13 
14 
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& 

1 

3 
9 

10 
11 
12 
13 
14 
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CAPTURE - PLAY 
FLAY 

1 END 1 XKEY ! ANOTHER ! CL5 
COLOR BORDERS OBSTACLES BEAST HERO 
CONTINUE 24 AT 32 SPACES TIME! 
LEVEL i DIFFCNT ! 
BEGIN DELAY HOVE.HERQ 
SET.LEVEL 0= IF MOVEJEAST LEVEL 3 
DIFFCNT ! THEN LOSE? LOSE 3 
0= IF ELSE WIN? THEN 50 24 AT TIME 
END 3 0= UNTIL 20 24 AT ; 



\ 



BTN 04-15-1988 \ CAPTURE - PLAY 



BTN 04-14-1988 



\ Draw playing 
\ field 



Speed of gate 
Difficulty 
and iove/lose 
win 



\ End gaae 



PLAY Draw the playing board, place the 
obstacles, the beasts and the HERO, 
then play the gate. 



22 46 

\ CAPTURE - GAME BTN 04-14-1988 \ CAPTURE - SANE BTN 04-18-1938 
1 

2 : SAME BEGIN TELL PLAY 50000 DO LOOP : GAME Play the gate of Capture. 

3 24 AT ." Play again? (Y/N) ' 

4 Y/N ANOTHER 3 1 = UNTIL CLS 

5 BYE ; 

h 
7 
8 
9 

10 
11 
12 

1 7 

14 



\ CAPTURE - Build Syste* 
1 

2 ONLY FORTH ALSO DOS ALSO 

j 

4 : CAPTURE EMPTY-BUFFERS 

5 " CAPTURE. BLK" FCB1 (!FCB) 
b FCB1 ! FILES OPEN-FILE 

7 GAME ; 
8 

9 ONLY FORTH ALSO 

10 ' CAPTURE IS BOOT 
11 

12 SAVE-SYSTEM CAPTURE.COM 

13 

14 

15 
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BTN 04-16-1988 \ CAPTURE - Build Systes 



BTN 04-14-1988 



\ search DOS and Forth 

\ duMy program naie 

\ parse filena«e to fcb 

\ open the file to list 



\ power up search order 

\ sake deso run autoiatically 

\ create capture. con file 



This screen is used 
to build a .co» file 
of the progran. This 
elisinates the need to 
coipile ( LOAD ! the 
application each ti*e 
it is needed. 
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F83 

.CAME-FROM 



FRANS VAN DUINEN - ETOBICOKE, ONTARIO, CANADA 



VARIABLE (EXEC-FENCE) 
* interpret 2- (EXEC-FENCE) ! 

: EXEC? 

(EXEC-FENCE) @ HERE >R OVER U> SWAP R> U> OR NOT ; 

: EXECUTE (S cfa — ) 
DUP EXEC? NOT 

IF TRACE-BACK . STACK TRUE ABORT" EXEC error " THEN 
EXECUTE ; 



Figure One. Bulletproofing EXECUTE. 



: . CAME-FROM 

DUP EXEC? SWAP 2- SWAP OVER 
EXEC? AND IF ." -" >NAME .ID 
ELSE DROP THEN ; 

: . SR R> \Hide own return address 

RPO @ RP@ - 2/ \# of entries on return stack 

?DUP IF 

0< IF ." Underflow " 

ELSE RP@ RPO @ 2- \RP0 byte after return stack 

DO I 6 DUP 5 U.R .CAME-FROM SPACE 
KEY? ? LEAVE -2 +LOOP 

THEN 

ELSE ." Empty" THEN >R ; 
: TRACE-BACK ." R stack:" .SR CR ; 
: .STACK ." Stack:" .S CR ; 



Figure Two. Where did we come from? 



^^ars ago, when structured program- 
ming was still relatively new, there was an 
article about goto-less programming using 
the "came from" construct Since it ap- 
peared in the April issue (Datamation, I 
think), it made amusing reading and that 
was it. It is somewhat ironic, then, to be 
implementing a "came from" in what may 
be the most structured of all languages, 
Forth. 



"Most of the CFA's 
were zero...a system 
reboot every time." 



I've been doing some neat stuff with 
table-driven applications. For one of these, 
the basic data structure is a list of addresses 
of other data structures, which in turn point 
to other lists of yet other addresses; there 
are four levels of structures and address 
lists in total. 

The implementation uses something 
like user variables, with a separate base 
pointer for each of the four levels. The 
addresses in the list are the CFAs (code 
field addresses) of words to initialize the 
base pointer. 

The problem was that, during testing, 
the program kept trying to execute vari- 
ables for which the base pointer had not 
been properly initialized. Most of the exe- 
cuted CFAs were zero. That meant a system 
reboot every time. 

Hence the following test version of 
execute to check that the CFA to be 
executed is at least reasonable (i.e., within 



the application). It uses EXEC? to check 
that the address is in the range from A 
empty (or, as used here, from ' inter- 
pret 2-) to here. If not, abort (see 
Figure One). 

The next step was to show the return 
stack and the data stack just prior to ABORT 



by using .TRACE-BACK and .stack. 
The word . SR shows the return stack, and 
is a simple transliteration of . S which, in 
F83, shows the data stack (see Figure 
Two). 

The return stack, of course, contains 
(Continued on page 32.) 
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Forth-83 

TIME-KEEPING 

ROUTINE 

PETER VERHOEFF - GLENDALE, CALIFORNIA 



If, like me, you work odd hours and 
would like to somehow keep track of how 
much time you spend at your computer 
each week, you may find this program 
useful. It is written in F83 version 2.1 for 
the IBM PC and compatibles. 

This program records the length of the 
current session, the total time for the day, 
the total for the current week (or other 
period of your choice), and remembers the 
total for the previous period. It also records 
the date and time in ASCII format when 
you log in or out, which can then be printed 
so that you have a record of exactly when 
you logged in and out. 

How to Use It 

Two files are used: TIMELOG.COM, 
the compiled form of the program, and 
TIME.LOG, the file containing the logging 
data. I made TIME.LOG three blocks long, 
which holds almost 50 pairs of login and 
logout times. 

To register a login time, you type 
TIMELOG IN from the DOS command 
line. Likewise, TIMELOG OUT will record 
the time you log out. Actually Just the letter 
I or o after the time log command will do 
the trick. 

When you log out, it subtracts the time 
you logged in to compute the session time, 
and adds this to the daily total and the total 
for the period. To start from scratch, you 
would type TIMELOG R. This simulates a 
logout followed by a login, moves the cur- 
rent period total to the previous period, and 
then clears the current period total. The 
session total is always cleared by a login, 
and the daily total is cleared by a login if the 
day differs from the previous day of login. 

My work week ends at two p.m. on 



Thursdays, and I have therefore included 
another command: TIMELOG N. When I 
issue this command, the new week is 
started at two p.m. sharp (it gets the two 
p.m. from memory, not the clock.) Other 
than that, it works the same as the R com- 
mand and could be used instead of it. The R 
command, however, is useful if you have 
been away for some days, and weren' t there 
on Thursday to add the total for the week; 
you'd start the new week right then. Of 
course, it will work just as well on periods 
longer than a week, but you should increase 
the TIME.LOG file size accordingly. 

If, during a session, you wish to know 
how much time you've put in, you can do so 
by using the command TIMELOG Q. This 
will display the data of any of the above 
commands, but won' t make any permanent 
changes to the logging file. 

"These routines store 
the date and time into 
a log file that can be 
printed." 



How It Works 

My intention in writing this program 
was first to provide a useful application and, 
second, to provide clean and elegant code 
that may be of interest to readers. Being a 
firm believer in keeping things simple, I 
adopted the approach of deferring com- 
plexities at the higher levels of the code. It 
also seemed logical to list the program in 
reverse order, so that in explaining the 
program, the higher-level concepts are pre- 
sented first. 



The top-level word on screen 17 con- 
sists of just three parts: a beginning, a 
middle, and an end. That's about as simple 
as it can get. The code at the bottom of the 
screen makes it possible to execute the 
program automatically from the DOS 
command line. 

Screen 16 is where the different op- 
tions get selected. I considered creating a 
case command for the occasion but de- 
cided against it, because it would only be 
used once and the code is pretty easy to 
follow anyway. 

iNlTon screen 15, again consisting of 
three words, gets your choice from the 
DOS command line, reads the log file, and 
gets the current date and time. The other 
two definitions on this screen aren't quite 
as tersely defined, but nonetheless are 
pretty straightforward. One word worth 
noting is START, an F83 word which 
opens the DOS "default" file (normally 
obtained from the command line, but not 
in this case). 

The code for now, on screen 14, is 
almost COBOL-like in its definition, 
where you would say something like: 
MOVE DATE TO PRESENT-DATE 
MOVE TIME TO PRESENT-TIME 

In Forth, of course, we use reverse nota- 
tion, so the move goes at the end and gets 
renamed to PUT because we already have 
a move word in Forth. 

NOW hides quite a lot of data: DATES 
and time@ each put four bytes on the 
stack, which are stored into the log file by 
put, using offsets defined by present, 
date, and time. I find the idea of using 
words to define offsets interesting and 
similar to adjectives in human language, in 
that they modify the object. 
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Also on screen 14, new . week sets the 
present time to 14:00:00:00 hours (since 
my new week starts and ends at two p.m.) 
and then does a reset, which does a 
simulated logout and login, moves the 
current week to last week, and zeroes the 
new week. 

LOG . IN, on screen 13, checks if 
today's date differs from the previous login 
date and, if so, clears the daily total. It also 
resets the session time and saves the login 
date and time. On the same screen, 
log . OUT and inquire are almost iden- 
tical, except that LOG. OUT saves the 
changes that were made, and inquire 
doesn't. 

STRETCH, on screen 11, inserts 32 
bytes at the start of block zero of 
T I me . LOG and moves everything else up. 
The last 32 bytes of the last block are saved 
just before the insert, since that is where the 
binary totals are being kept, and 
save . end on screen ten is the word that 
puts those values back. This permits us to 
use the log file like a stack, with the most 
recent entry first. It is also independent of 
the number of blocks in the file. 

Screens eight and seven deal with string 
handling. The purpose of these routines is 
to store the ASCII date and time into the log 
file in a format that can be printed out later, 
to provide something like an audit trail. The 
routines are commented pretty well. The 
only unusual definition is of $+C. SP@ 
gives the address of the character on the 
stack. Next, a one is pushed onto the stack, 
thus defining a one-character string which 
can then be processed by PLACE+ to be 
appended to the already existing string in 

INBUF. 

Screens six and five contain logic to add 
with carry, and to subtract with borrow. 
The time calculations could, of course, be 
done by converting everything to hun- 
dredths of a second, but I consider this a 
more interesting way of doing it. 

The routines that extract the time and 
date are on screen four. The time and date 
are converted into four separate bytes each, 
for uniformity and to simplify processing. 

Screen three contains some primitive 
words and screen two contains the con- 
stants and buffers used. 



Occasionally I forget to log in or out, which 
throws off the totals. The log file can be 
edited, but I didn't get around to writing a 



re-totalling routine yet. Perhaps you can 
come up with a neat way to do that? 



TIMELOG.BLK Screen 17 
\ LOG. TIME 



LOG. TIME 
INIT 
CHOICE 
FINAL ; 



(S — 



\ Top level time keeping word. 
\ Open log file, get input char. 
\ Decide what to do and do it. 
\ Wrap up the actions. 



LOG. TIME IS BOOT 



\ for automatic execution 



TIMELOG.BLK Screen 16 
\ CHOICE 



CHOICE (S char - 
DUP ASCII I = 
IF DROP " IN: 
ELSE DUP ASCII O = 

IF DROP " OUT: " 
ELSE DUP ASCII N = 
IF DROP NEW. WEEK 
ELSE ASCII R = 
IF RESET 
ELSE INQUIRE 
. " Choices 
THEN THEN THEN THEN ; 



) \ Input char determines what next 

LOG. IN \ On login check daily total. 

LOG. OUT \ On logout update total also. 

\ Close old week, start new one. 

\ Start new week now. 
\ Just check current status. 
In, Out, New, Query, Reset" 



TIMELOG.BLK Screen 15 

\ INIT GET. FILE FINAL 

: FINAL (S — ) 

CR BLOCK $LEN 2* TYPE 
.TOTALS FLUSH BDOS 



\ Display data and exit. 
\ Display last 2 entries. 
\ Write data and exit. 



GET. FILE (s — ) \ Open time keeping file. 

[ DOS ] DOS-FCB CLR-FCB \ Clear file control block. 

" TIME LOG" DOS-FCB 1+ \ Get time keeping file name. 

SWAP CMOVE START ; \ Put file name in fcb & read it. 



INIT (S 
DOS . CHAR 
GET. FILE 
NOW ; 



char 



\ Initialize and get input char. 
\ Get dos command line character. 
\ Open the time keeping file. 
\ Get the date and time. 



Final Note 

I have used this program during the last 
few months and find it useful. One feature 
that could be added is a re-totalling option. 
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(Verhoeff screens, cont.) 



TIMELOG.BLK Screen 14 

\ NOW NEW. WEEK RESET 

: RESET (S — ) 

" OLD: " LOG. OUT 

" NEW: " LOG. IN 

WEEK TIME LASTWK TIME XFER 

ZERO WEEK TIME PUT ; 



\ Use this if starting afresh. 

\ Close out last week. 

\ Start a new week. 

\ This week becomes last week. 

\ New week's total is zero. 



NEW. WEEK (S — ) \ Do only after totals displayed. 

14 PRESENT TIME PUT \ My new week starts at 2 pm. 
RESET ; \ Go and fix the totals. 

NOW (S — ) \ Get and save the date and time. 

DATE? PRESENT DATE PUT \ (Only used at entry time.) 
TIME? PRESENT TIME PUT ; 



TIMELOG.BLK Screen 13 

\ LOG. IN LOG. OUT INQUIRE 

: INQUIRE (S — ) \ Session length = now - in time. 

PRESENT TIME LOGIN TIME SUB SESSION TIME PUT 

SESSION TIME DAILY TIME ADD DAILY TIME PUT 

SESSION TIME WEEK TIME ADD WEEK TIME PUT 



LOG. OUT (S adr cnt — 
INQUIRE SAVE. TIMES ; 



\ Log out and add up totals. 
\ Get elapsed time and log it. 



LOG. IN (S adr cnt — ) \ Log in date & time = now. 

PRESENT DATE DAY LOGIN DATE DAY DIFF? 

IF NEW. DAY THEN \ New day if not last login day. 

ZERO SESSION TIME PUT \ Start new session. 

PRESENT DATE LOGIN DATE XFER \ Update the time log. 
PRESENT TIME LOGIN TIME XFER SAVE. TIMES 



TIMELOG.BLK Screen 12 

\ NEW. DAY ZERO DIFF? XFER SAVE. TIMES 

: SAVE. TIMES (S adr cnt — ) \ Save the log and update file. 

STRETCH SAVE. END \ Make room in file, save totals. 

MAKE$ PUT$ ; \ Put ascii log time in file. 

: XFER (S oal oa2 obi ob2 — ) \ Transfer time from a to b. 
>R >R GET R> R> PUT 

: DIFF? (S oal oa2 oa3 obi ob2 ob3 — t|f ) \ Compare 2 units. 

UNIT? >R UNIT? R> = NOT ; \ True if different. 

: ZERO (S — 0000) 0000;\ Four zeros. 

: NEW. DAY (S — ) \ Start a new day. 
ZERO DAILY TIME PUT ; 



(Screens continued on page 34.) 



(Continued from page 29.) 

the return address(es) in the calling 
word(s) and how we got to the point in the 
program where it failed. Doing dumps for 
each address on that stack to look for the 
name of the calling word was not, how- 
ever, the way to go. 

. CAME -FROM takes care of that (Fig- 
ure Two). We know that the address on the 
return stack points in the calling definition 
following the two bytes whose content 
points to the CFA of the word currently 
executing (nested). Of course, there are 
occasionally values on the return stack 
that are not return addresses (e.g., af ter >R, 
loop control, etc.). There are also words 
like ? BRANCH and LITERAL that adjust 
the return address to skip past some in-line 
parameter. But by and large, if the address 
on the stack and the address it points to are 
both in a reasonable range, the latter 
probably points to a CFA. 

The word . came -from does a rea- 
sonableness test (?EXEC) on the two ad- 
dresses it uses and, if they both look good, 
uses >NAME . ID to go from CFA to NFA 
(name fieldaddress) and display the name. 

Note that .CAME -from outputs 
something like ... 2A64=INTERPRET. 
That does not mean that interpret is at 
2A64. It does mean that the return stack 
contains 2A64, which corresponds to 
interpret being the word that called 
us (at 2A62 we found the address of the 
CFA of INTERPRET). 
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A 

.ZA.mong the many things to which 
Forth is suited, real-time control has to rank 
as its strongest suit. Included in this ever- 
expanding category is the control of robots. 
Since the subject of robotics is near and 
dear to many Forth enthusiasts, it would be 
fair to expect discussion of such on the 
GEnie Forth RoundTable. In fact, Category 
6, Topic 9 is devoted to robotics; and in this 
issue we will sample the knowledge that is 
there for the asking. 

Topic 9 

Mon Sep 07, 1987 ATFURMAN 
[Alan F.] 

Sub: Autonomous mobile & hobby robot- 
ics. This topic also includes legged loco- 
motion. 

Category 6, Topic 9, Message 2 
Mon Sep 07, 1987 ATFURMAN 
[Alan F.] 

Radio-Electronics magazine has been 
publishing a series of articles on building a 
mobile robot programmed in Forth (actu- 
ally a robot-control wordset called RCL for 
"Robot Control Language") since Decem- 
ber 1986. A kit of mechanical parts is 
offered by mail order. The robot has a one- 
degree-of-freedom "arm" (gripper on a 
vertical positioning slide). It has two pow- 
ered wheels and a control board with an 
Intel 80186. The board is one of several 
SBCs sold bundled with Forth, and is made 
by Vesta Technology, Wheatridge, Colo- 
rado (which just happens to be run by the 
author, Steven E. Sarns). Thanks to George 
Shaw for alerting me to this one. 

I have not been following the series, so 
I do not know how sophisticated the soft- 
ware has gotten. This does seem like a great 



opportunity to blow the field away with 
some AI extensions to the Forth system. In 
fact, one of the niftiest AI hacks in Forth 
was created precisely for an autonomous 
mobile robot (at Oak Ridge National Labo- 
ratory; see "The Internals of FORPS: a 
FORth-based Production System" by 
Christopher Matheus, Journal of Forth 
Application and Research, Vol. IV, No. 1, 
pp. 7-27 (1986). The inference engine and 
rule compiler take about one page of source 
and originally ran on a Z80. Now imagine 
running this on a Forth engine. 



"A good feedback 
servo motor controller 
is a real thing of 
beauty..." 



Category 6, Topic 9, Message 3 
Tue Sep 08, 1987 S.W.SQUIRES [scott] 
Versions of FORPS are available in the 
file directory for a few different computers. 
Search for FORPS. 

Category 6, Topic 9, Message 4 
Tue Sep 08, 1987 S.W.SQUIRES [scott] 
I may be involved with a mobile cart for 
a future project Since the wheels may be 
rubber, there will be some slippage. Does 
anyone know of good single-axis measure- 
ment-sensing system? Objective: the cart 
will be portable and will be in different en- 
vironments with a minimal amount of setup 
time. Distance traveled will be from a few 
feet to 50 feet. Position resolution must be 
1/1 00 of an inch or better. Update at a speed 



of 60 to 100 times per second. The technol- 
ogy must be practical with little mainte- 
nance. Possible ideas we've started to ex- 
amine: 

Ultrasonics. Disadvantage: resolution 
and distance limited. 

Laser. Disadvantage: complexity. 

Magnetic field. Disadvantage: not 
practical, given amount of metal and other 
factors. 

Visible focus (similar to Autofocus 
cameras). Disadvantage: complexity and 
limited resolution. 

Grid on ground. Disadvantage: not 
practical in environment. 

Tape on ground. Bar-code-style mark- 
ings would be printed on the tape. This 
looks the most promising so far. 

Although this is for a single axis, I'd be 
curious to know about three-dimensional 
measurements given the same criteria. — 
Scott 

Category 6, Topic 9, Message 5 

Tue Sep 08, 1987 ATFURMAN [Alan F.] 

David Jaffe of the Palo Alto (Califor- 
nia) Veterans Administration Hospital 
rehabilitation research group (and soon to 
be on GEnie) is connected with people 
doing mobile robot research at Stanford 
University. In particular, Larry Leifer of 
the Mechanical Engineering faculty. 

Category 6, Topic 9, Message 6 
Tue Sep 08, 1987 ATFURMAN [Alan F.] 
Scott: Is this robotic cart connected 
with ILM? What is it for? 

Category 6, Topic 9, Message 7 

Wed Sep 09, 1987 S.W.SQUIRES [scott] 
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(Verhoeff screens, cont.) 



TIMELOG.BLK Screen 11 

\ STRETCH $INS OUT>IN 

: OUT>IN (S — ) 

OUTBUF COUNT INBUF PLACE 



\ Move outbuf data to inbuf. 



$INS (S bl.adr n — ) \ Insert n chars at start of blk. 

2DUP - B/BUF + OVER OUTBUF PLACE \ Save end of block. 
2DUP 2DUP >R + B/BUF R> - CMOVE> \ Move everything up. 



INBUF 1+ -ROT CMOVE 

STRETCH (S — ) 
$LEN CAPACITY 
DO 

I BLOCK OVER $INS 
UPDATE OUT>IN 
LOOP DROP ; 



\ Put data from in-buffer. 

\ Insert 32 bytes into file. 
\ Do from block to eof: 

\ Insert into each block. 

\ Save change, outbuf to inbuf. 



TIMELOG.BLK 

\ 



Screen 10 



PUT$ (S — ) 
INBUF COUNT 



SAVE. END (S 
INBUF COUNT CAPACITY 
BLOCK B/BUF + OVER - 
SWAP CMOVE UPDATE 



\ Save ascii time string in file. 
BLOCK SWAP CMOVE UPDATE ; 

\ Save totals at end of file. 
\ After stretch, totals in inbuf. 
\ Save at end of last block. 



) 



TIMELOG.BLK Screen 9 

\ .TOTALS DISPLAY MAKE$ 

: MAKE$ (S adr cnt — ) 
INBUF PLACE 

PRESENT DATE GET $+DATE 
PRESENT TIME GET $+TIME 

: DISPLAY (S adr cnt ol o2 
2 SWAP INBUF PLACE GET 
$+TIME INBUF COUNT TYPE 



\ Text, date, and time in ascii. 
\ Save identifier in inbuf. 
\ Append the date. 
\ Append the time. 

-) \ Display message and time. 
\ First store the message. 
\ Then the time and display. 



.TOTALS (S — ) CR \ Print totals. 

" Total for session " SESSION TIME DISPLAY 

11 Total for to-day " DAILY TIME DISPLAY 

" Total this period " WEEK TIME DISPLAY 

" Total last period " LASTWK TIME DISPLAY 



TIMELOG.BLK Screen 8 

\ $+TIME $+DATE $+# $+C 

: $+C (S char — ) 

SP@ 1 INBUF PLACE+ DROP ; 

: $+# (S # ) 

<# # # #> INBUF PLACE+ 



\ Append character to string. 
\ Treat stack as 1-char string. 

\ Append number to string. 



$+DATE (S cc yy mm dd — ) \ Append date to INBUF. 
INVERT $+# $+# ASCII . TUCK \ Append year. Period delimits. 
$+C $+.# $+C $+# BL $+C ; \ Append .mm.dd and a space. 



$+TIME (S hh mm ss . ss - 
INVERT $+# ASCII : TUCK 
$+C $+# $+C $+# ASCII 



) \ Append time to INBUF. 

\ Append hh:mm:ss.ss <cr> <lf>. 
$+C $+# 13 $+C 10 $+C ; 



(Screens continued on page 35.) 



This would be a live-action dolly sys- 
tem with the same requirements as a nor- 
mal dolly but be repeatable. This is just in 
an idea stage, so it might not become a 
reality. — Scott 

Category 6, Topic 9, Message 8 
Thu Sep 10, 1987 ATFURMAN 
[Alan F.] 

All right. You guys want 0.25 mm. 
resolution over a 1.5-15 meter range of 
movement. I guess you are already aware 
of the avalanche of papers in the robotics 
literature on two subjects: navigation for 
mobile robots (obviously) and 3D sensors 
(for mobile robots and also for workpiece 
inspection and robotic bin picking). SPLE, 
SME, and IEEE run conferences with vo- 
luminous proceedings annually that ad- 
dress these topics. Here are a few 
thoughts: 

Putting a target on the dolly and deter- 
mining its position by triangulation re- 
quires a resolution of four seconds of arc. 
Theodolites are made that resolve 0.01 
seconds, so it is potentially feasible. 

A company called Digital Optronics is 
gearing up to commercialize very-high- 
resolution laser range finders. Rather than 
using time of flight (which performs 
poorly with attainable time resolution), 
these gadgets apparently chirp the (long- 
pulse) beam and heterodyne it with the 
return. Distance variations translate into 
frequency variations in the beat note. 
Clever, what? Of course, using it would 
still entail gimbal mounts and angular 
tracking of the dolly as it moves. 

Coded tape is a contender, given the 
assumption that dolly motion is planned in 
advance, rather than arbitrary. More in our 
next episode... 

Category 6, Topic 9, Message 9 
Thu Sep 10, 1987 ATFURMAN 
[Alan F.] 

Coded tape for repeat path sensing, 
continued from previous posting. Con- 
sider, if you will, the pattern [in Figure 
One] printed on, say, mylar tape. 

A CCD camera aboard the dolly looks 
directly downward at this tape, which is 
stuck onto the floor. A simple image- 
processing algorithm locates a line cross- 
ing in the pattern, and compares its posi- 
tion in the image to the position seen 
during the lead-through programming 
run. Ambiguities as to which crossmark it 
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is are resolved by taking a cut (in software) 
through one of the bar codes (which label 
the scale every 1/10 meter). 

Using one of the 512 x 512 sensors 
available now, and with optics imaging at 
0.25 mm. per pixel, the camera will cover a 
field of 12.8 x 12.8 cm. For more coverage, 
sub-pixel resolution can be used. One ap- 
proach to the latter is to use a fancier target 
pattern, as in Figure Two, for example, in 
which at least two lines not parallel to the 
grid axes of the sensor are guaranteed. The 
software can then fit line equations to the 
diagonal pixel patterns (which smooths out 
the spatial sampling errors) and calculate 
their intersection. The software will also 
have to be smart enough to deal with 
wrinkles and overlapping ends of tape 
strips. 

Cheers, Alan 

Category 6, Topic 9, Message 10 

Fri Sep 11, 1987 S.W .SQUIRES [scott] 

Thanks for all the feedback Alan. 
Sounds like you're quite involved with 
these areas. 

I looked at some of the optical and laser 
techniques when I was at the SPEE show 
this year. Would rather keep it a bit simpler. 
Your thoughts on tape are good. We were 
looking at a bit lower tech. The tape would 
have two or more parallel patterns, each 
being read with a separate simple photode- 
tector. This would allow some fault toler- 
ance. The tape would probably be of plas- 
tic, mounted to a channel on the track to 
avoid being stepped on. Mounting the tape 
on the side or upside down might also be 
done. Relative marks would probably be 
fine but, if not, we might use something 
similar to the SMPTE code. A single 'chan- 
nel' of data should suffice if done correctly. 
—Scott 

Category 6, Topic 9, Message 11 

Sun Sep 20, 1987 ATFURMAN [Alan F.] 

Since getting on GEnie, I have learned 
of the existence of the Macbot autonomous 
mobile robot project: a loosely defined, 
public-domain, hacker-community effort 
that seems to be drifting toward adopting 
Forth as the main programming language. 
References: several files in the Forth Appli- 
cations DL, and postings under Category 
12 in the "Mac developers" RoundTable. 

The Macbot group figures that spinoffs 
alone (usable designs in servo control, AI, 
etc.) would pay for the effort, but practical 

I 
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(Verhoeff screens, com.) 



TIMELOG . BLK Screen 7 

\ INVERT PLACE+ 

: PLACE+ (S from cnt to — ) \ Like PLACE, but adds string. 

2DUP COUNT TUCK + -ROT + ROT C! \ Update count. 

SWAP CMOVE ; \ Then move string. 

\ Example: if STRING contains 'Hello ', 
\ then " Joe" STRING PLACE+ will result in 
\ 'Hello Joe' at STRING (1st byte = count.) 



INVERT (S a b c d 
SWAP 2 SWAP SWAP 



d c b a ) \ Invert 4 items on stack. 



TIMELOG. BLK Screen 6 

\ TIME+ +C ADD 

:+C (Sxyw — x+y 
-ROT + 2DUP > 
IF NIP 
ELSE SWAP - 1 
THEN SWAP ; 



x+y-w ) \ Add with carry. 

\ Add a to b, compare with w. 
\ If sum < w means no carry. 
\ Else subtract w, carry = 1. 
\ Keep sum on top. 



TIME+ (S hi mi 
4 ROLL 100 +C 
3 ROLL 60 +C 
ROT 60 +C 
+ R> R> R> ; 



) \ Add times. 



si .si ho mo so .so — h m s 
>R + \ Save . so + .si. 

>R + \ Save so + si. 

>R + \ Save mo + mi . 

\ Sum in hrs min sec secs/100. 



ADD (S oal oa2 obi ob2 — h 
>R >R GET R> R> GET TIME+ i 



s .s ) \ Add times by offsets. 



TIMELOG. BLK Screen 5 

\ TIME- -B SUB 

: -B (Sxyw — o x-y 
-ROT - DUP 0< 
IF + -1 
ELSE NIP 
THEN SWAP ; 



-1 x 



-y+w ) \ Subtract with borrow. 
\ Subtract y from x. 
\ If negative, borrow w. 
\ Else get rid of w. 
\ Keep difference on top. 



TIME- (S hi mi si 
4 ROLL 100 -B >R 
3 ROLL 60 

ROT 60 

SWAP 2 4 



-B 
-B 
-B 



si ho mo so -so — h m s . s 

+ \ Save .so - .si. 

>R + \ Save so - si. 

>R + \ Save mo - mi . 



\ Out 



NIP R> R> R> ; \ Diff in hrs min sec secs/100. 



SUB (S oal oa2 obi ob2 — h m s .s 
2 SWAP >R >R GET R> R> GET TIME- ; 



\ Subtract a - b. 



(Screens continued on page 36.) 
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TIMELOG . BLK Screen 4 

\ TIME? (TIME) DATES 



(DATE) 



CODE (DATE) (S — yyyY mmdd ) \ Get the date from the system. 
42 # AH MOV 3 3 INT 
CX PUSH DX PUSH NEXT END-CODE 

: DATE§ (S — cc yy mm dd ) \ Get date in byte format. 
(DATE) SWAP 100 /MOD SWAP ROT CHOP ; 

CODE (TIME) (S — hhmm ss.ss ) \ Get the time from the system. 
44 # AH MOV 33 INT 
CX PUSH DX PUSH NEXT END-CODE 

: TIME? (S — hh mm ss . ss ) \ Get the time in byte format. 
(TIME) SWAP CHOP ROT CHOP ; 



TIMELOG. BLK Screen 3 
\ CHOP UNIT? 



GET PUT 'INFO 



: ' INFO (S — addr ) \ This is where it is stored. 

CAPACITY 1- BLOCK B/BUF + $LEN - ; 

: PUT (S a b c d ol o2 — ) \ Store 4 bytes at 'INFO+Ol+02. 
+ 'INFO + FULL + FULL DO 1- TUCK C! LOOP DROP ; 

: GET (S ol o2 — abed) \ Get 4 bytes from 'INFO+Ol+02. 
+ ' INFO + FULL DO COUNT SWAP LOOP DROP ; 



UNIT? (S ol o2 o3 — a 
+ + 'INFO + C@ ; 

CHOP (s xxyy — xx yy 
2 56 /MOD SWAP ; 



\ Get 1 byte from ' INFO+01+02+03 
\ Chop word into 2 bytes. 



TIMELOG . BLK Screen 2 

\ Constants and buffers. 

CONSTANT DATE 

CONSTANT PRESENT 

8 CONSTANT SESSION 

16 CONSTANT WEEK 

CONSTANT CENTURY 

2 CONSTANT MO 

CONSTANT HR 
2 CONSTANT SEC 

1 CONSTANT UNIT 
3 2 CONSTANT $LEN 

CREATE INBUF $LEN 1+ ALLOT 
: DOS. CHAR 130 C@ UPC 



8 CONSTANT TIME 

4 CONSTANT LOGIN 

12 CONSTANT DAILY 

20 CONSTANT LASTWK 

1 CONSTANT YEAR 

3 CONSTANT DAY 

1 CONSTANT MINS 

3 CONSTANT . SS 

4 CONSTANT FULL 

CREATE OUTBUF $LEN 1+ ALLOT 
\ Get input character. 



(Screens continued on page 37.) 



applications like aids to the handicapped 
have been mentioned. The only fixed 
quantity seems to be the Macintosh as 
central controller. Actually, the best con- 
troller choice would be the 32-bit Forth 
virtual machine, whether implemented on 
a Mac, Atari ST, Amiga, or 386 PC bus 
system (the last two choices would make 
interfacing easier). 

Macbot activity on GEnie stalled this 
summer; I do not know what is going on 
with the project itself (it appears to live 
mainly on Compuserve). The leader of the 
project, B.W. Lightsey, is on GEnie; 
B.W.LIGHTSEY is his address. 

Category 6, Topic 9, Message 12 
Sat Nov 14, 1987 H.SIMMONS 

Lacking practical experience, this 
suggestion may not have merit, but it 
would seem that the use of a fifth wheel 
would provide sufficient accuracy to al- 
low for only occasional calibration by 
moving the dolly to a known location. If 
the dolly is to have two-dimensional 
travel, a larger-than-handheld "mouse" 
with larger ball should do the job. 

For calibration, perhaps laser diodes 
attached to the ceiling at strategic posi- 
tions, which could fire in response to an 
ultrasonic signal from the dolly? Is there 
any possibility of placing ultrasonic tar- 
gets or "calibration tape" on the ceiling to 
get regular position information? — Ho- 
race 

Category 6, Topic 9, Message 13 
Mon Nov 16, 1987 S/W.SQUIRES 
[scott] 

Good suggestions, but the travelling 
wheel would probably have some accu- 
racy problems over long runs. The ceil- 
ing, for most applications, might be 40+ 
feet up and differ from a regular ceiling; or 
it may be outside in some projects, with no 
ceiling. Not much is happening with this 
currently, so I'm on to other projects. — 
Scott 

Category 6, Topic 9, Message 14 
Sun Oct 02, 1988 S.W.SQUIRES [scott] 
Those interested in Robotics and AI 
may want to check the October issue of 
OMNI magazine. There is a article on the 
insect robots designed by Rodney Brooks 
at MIT's Artificial Intelligence Labora- 
tory. The potential applications and ap- 
proaches are discussed. The article in- 
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eludes step-by-step instructions on how to 
modify a cheap toy car from Radio Shack 
and add electronics to simulate some of the 
responses of an insect ($50-75 total). All 
the logic is actually photocells, Op Amps 
and TTL logic, but a person should be able 
to replace that logic with a small Forth 
board that does that and much more. As I 
recall, Scientific American had a "Com- 
puter Recreations" article a couple of years 
ago describing similar photocell-con- 
trolled vehicles. — Scott 

Category 6, Topic 9, Message 15 

Sat Dec 03, 1988 R.SCHEMMEL1 

[JEPEDO] 

Gentlemen, allow me to be of assis- 
tance. Robotics is my main objective and I 
would be glad to participate in a group 
project. I can provide technical reference 
information in electronics to almost any 
degree of detail, as far as circuitry goes. 
However, as I am sure you are aware, the 
sheer magnitude of new technology is 
staggering and, although I have a nice as- 
sortment of very recent engineering books 
on robotics-related subjects, nevertheless 
it is relatively equivalent to having a few 
fish out of the ocean: compared to what 
you don't have, you have nothing, but it's 
still enough to feed you... 

Also, my fort£ is prototyping circuitry 
and fabrication of an electronic nature, to 
wit, building circuits, equipment, etc. in- 
cluding motor control. Feedback servos 
are, of course, the only way to get real 
precision but are incredibly involved, both 
design-wise and in prototyping and test- 
ing. A good feedback servo motor control- 
ler is a real thing of beauty: it flies through 
the air with the greatest of ease and stops 
close enough to a dime standing on its edge 
to knock it over with the air pressure and 
still not touch it. The precision standard 
four years ago was 1/1000 of an inch, but 
these days they have stuff that can thread a 
needle (literally) with plenty of clear- 
ance — if you have enough money. Any- 
way, if you need something prototyped 
and have the design but need an engineer- 
ing technician to build it, I might be able to 
help you. I am hoping I'll eventually learn 
enough about Forth to program the hard- 
ware I build, but at the moment I couldn't 
program my way out of a paper bag. 

Personally, I'll take aForth engine over 
anything else for a main CPU or control 
processor. I just wish I could afford one! 



(Verhoeff screens, cont.) 



TIMELOG.BLK Screen 

\ Time keeping program TIMELOG.BLK 

Copyright (c) 1988 by Peter Verhoeff 
3 08 N. Louise Ave. #14 
Glendale CA 91206 

This program is freely available for private use. 
Commercial use of this program or any part thereof requires 
written permission from the author. 

This program has been written in F83 Forth, version 2.1.0. 



( Continued from page 4.) 

Other Forth-specific BBS's 

• Laboratory Microsystems, Inc. 

213-306-3530 

SysOp: Ron Braithwaite 

This list was accurate as of March 1989. If 
you know another on-line Forth resource, 
please let me know so it can be included in 
this list. I can be reached in the following 
ways: 

Gary Smith 

P. O. Drawer 7680 

Little Rock, Arkansas 72217 

Telephone: 501-227-7817 

Fax: 501-228-0271 

Telex: 6501 165247 (store and forward) 
GEnie (co-SysOp, Forth RoundTable): 
GARY-S 



BIX (Bytenet): GARYS 

Delphi: GARY_S 

MCIMAIL: 116-5247 

CompuServe: 71066,707 

Wetware Diver. (Fairwitness, Forth Con 

ference): gars 
Usenet domain.: gars@ well. UUCP or 

gars@wet.UUCP 
Internet: well!gars@lll-winken.arpa 

WELL: gars 

*ForthNet is a virtual Forth network that 
links designated message bases in an at- 
tempt to provide greater information dis- 
tribution to the users served. It is provided 
courtesy of the SysOps of its various links. 
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Category 6, Topic 9 Message 16 

Sun Dec 04, 1988 R.SCHEMMEL1 

[JEPEDO] 

Scott, for your information the RE- 
ROBOT uses an 80188, not 80186 as you 
mentioned. Also, for those interested, the 
RR-BBS phone number is 516-293-2283. 
It was busy every time I called, but they 
have a section for RE- ROBOTEERS, so to 
speak. 

Also, on the subject of rubber wheel 
slippage I would suggest you forget that 
word "slippage" because all you really care 
about is not how much you've slipped, but 
where you are when all the slipping is over. 
That is, concentrate on getting your bear- 
ings using something like the Polaroid In- 
frared range sensor for course measure- 
ments and a doppler-type ultrasonic sensor 
for a complementary input You'll need 
something photoactive for fine distance 
measurements and I would recommend a 
high-powered infrared LED mounted on a 
one-axis mount or a disk such that it can 



change the angle at which it shines on the 
path or the wall. Have a strip of infrared 
optical transistors running along the base 
strip all the way around so the transmitter 
scans back and forth, sending a pulsed 
beam at a preset frequency which the tran- 
sistors receive. Multiplex the transistor 
detectors for a signal and test the signal 
found for the correct frequency to eliminate 
all light not sent by the transmitter. 

Admittedly this is a crude method, but 
the key to making it work is using linear 
transistors and sensing amplitude of return 
signal rather than switching type in an on/ 
off setup. By varying the current to your 
scanning transmitter LED and sensing line- 
arly varying light pulses returning, you 
have the ability to make either "short 
range" or "long range" sensor scans. By 
using the amplitude of the return light sig- 
nal to vary the frequency of a voltage-to- 
frequency converter IC (there are many 
available), you can measure the frequency 
of the signal you have generated and use 



that when you wish to know the distance. 

The cart sensor navigation system is 
calibrated by driving it in a learning mode 
through an obstacle course and recording 
all sensor readings. The measurements are 
used to establish equivalent parameters 
such that a data value X equals ten feet, or 
six feet, or one foot etc.The readings, of 
course, are never the same for different 
areas so, given a large memory capacity 
for read-only data (CD ROM would be 
ideal , but a large hard disk will do), you can 
record all the readings for points along the 
path and store them once as data — this is a 
map which has no value to anyone except 
the robot that generated it, to which these 
readings representreal places it has been to 
once. Therefore, it can do a string search or 
approximation comparison of real-time 
readings with its stored map data and de- 
termine that it is about three feet from the 
drinking fountain in front of the elevator 
door on the second floor near the east wing 
at about 4:00 p.m., when the sun coming 




• 32-bit data stack 

• Tree structured scoping of dictionaries 

• Direct editing of dictionary structure 

• Tight binding of source and code 

• Automatic compilation 

• On-line help facility: 

One key help from within editors 
Context sensitive help on errors 

• Turnkey application generator 

• Complete debugging tools 

• Built-in heap memory management 

• Forth 83 to Fifth converter 

• Produces native code 

• 8087 floating point processor support 

• Pointer validity checking during development 



For IBM PC's with 128K, MS-DOS 2.0 or better 
Professional Version: $250.00 
Demo Disk: $10.00 
System Source Code Available for 

68000 Versions, call for information 

Knowledge Based Systems Inc. 
100 West Brookside 
Bryan, TX 77801 
(409) 846-1524 

This advertisement was prepared using a PostScript compatible 
interpreter written in Fifth, controlling a high resolution Laser Engine. 

PoatScrlnt to a lefjo t e i ed Trademark or Adobe Syrtcms lac. 

MS-DOS to • le gtote ie d Trademark of Mlcroeoft Corp. 

IBM to a registered Trademark of latematloBal Botiocai Macmlaca Corp. 
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through the window is at its lowest. As you 
can see, place is only part of the problem; 
the time must be recorded when the map is 
generated. That is, the data header for the 



sensor readings mustalways con tain adate- 
stamp or the readings will lose much of their 
value. As a matter of general practice, all 
sensor readings of any nature should con- 



tain a date stamp, as this information will 
be invaluable later. 

"Jepedo is the name and robots are my 
game." 
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Figure One. Ruled tape with bar code labels at ten-centimeter increments. 
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Figure Two. Targets used to achieve sub-pixel resolution require calculation. 



THE SUPER8 DEVELOPMENT LAB 

An unparalleled development environment for a whole spectrum of applications 

Complete documentation for Super8 and FORTH use 




$295 

single quantities 



PC Terminal Emulation and 
Disk Server software 

Super8 assembler/utilities 
software 

SUPERS DEVELOPMENT BOARD, with Zi.og's powerful 8 monitor/instructi ons/ 

20MHz Super8 single-chip microcomputer — with examples software 

• monitor ROM for conventional assembler development 

• FORTH ROM set for interactive FORTH development 
with full implementation of F83 FORTH 

• Prototyping area 

Inner Access Corporation Box 888 Belmont, CA 94002 • (415) 591-8295 • Telex 494-3275 INNACC 
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THE GREENING OF 

FORTH 

JACK WOEHR - 'J AX' ON GEnie 



^^any proverbs of our civilization 
indicate that he who wishes to lead must 
discover in which direction the people are 
heading and then place himself in front of 
them. 

The Forth Interest Group has been a 
leader of the steady and inspiring progress 
of the Forth programming environment for 
well over a decade. Recently, however, the 
question arises, "Is anyone still follow- 
ing?" 

Forth is more popular than ever. The 
surest gauge of the health and well-being of 
Forth is to be had in the number of annual 
annoucements of its impending death. Last 
year was perhaps a banner year for Forth, its 
demise being proclaimed in forums where 
its name had not previously been heard, 
such as John Dvorak's writings. 

Forth in 1988 acquired a powerful and 
influential patron in Harris Semiconductor. 
No less than Dr. C.H. Ting has testified 
that, "I used to think I knew all the preach- 
ers of Forth," but after attending a Harris 
RTX2000 seminar, he owned that he had 
heard the gospel preached eloquently by 
well-informed individuals previously un- 
known to the small and cozy Forth commu- 
nity. 

Forth continues to sweep the field of 
microprocessor-based embedded systems. 
FORTH, Inc. announced in 1988 several 
innovative extensions of their line of em- 
bedded-system-targeted polyFORTHs. 

As an embedded-system programmer 
myself, I have daily phone or BBS contact 
with inventors, scientists, designers, and 
engineers eager to acquire a working 
knowledge of Forth. They all have come to 
the conclusion that, like it or not, they must 
leam Forth to get the job done in reasonable 



time for a reasonable investment of cash. 

A class I teach in Golden, Colorado 
continues to gain new attendees, individu- 
als who have discovered Forth on their own 
and seek tutoring in the basics. 

An admittedly unscientific and subjec- 
tive assessment of job opportunities for 
Forth programmers leads me to believe that 
there have never been more positions for 
qualified individuals in the history of Forth, 
nor have so many of these positions ever 
gone begging for so long. Furthermore, 
Forth is reaching higher in the corporate 
world; for example, IBM here in Colorado 
is committing major programmer effort to 
the Forth-coded IBM-CAD project. 

Yet those of us who enjoy the FIG 
fellowship must find it subject for concern 
that this "Greening of Forth" does not seem 
to be entirely reflected in the Forth Interest 
Group. Membership has certainly not in- 
creased in proportion to the Forth boom; 
rather, we find old members too busy to 
participate any longer, often less enchanted 
with Forth Dimensions, occasionally dis- 
gruntled at actions, or lack of same, from 
the FIG leadership. 

To a certain extent, this falling away 
from FIG is limited to North America. I am 
informed by telecom friends in Europe and 
Australia that new Forth Interest Group 
chapters are constantly being formed, and 
that the chapters that exist are lively and 
well attended. Recently, we certified the 
first chapter in Finland, with a second pos- 
sibly to follow; new applications have 
reached Kent and Jan in the business office 
from as far away as Bulgaria! 

If FIG indeed is currently in decline, 
what could be the reasons? 

First of all, the institution of the Satur- 



day computer club is in decline in North 
America. Computer savvy goes crying in 
the streets nowadays; we are surrounded 
by all the digital wizardry we could desire 
and more; the beginner does not need as 
much hand-holding from monthly meet- 
ings as before, since the sophistication of 
even the most casual computer user is far 
greater than that of ten years ago. 

Secondly, while FIG has made one 
bold stride in the direction of the brave 
new world by opening the Forth Interest 
Group RoundTable on GEnie, other serv- 
ices are needed by the modern Forth pro- 
grammer that FIG has not yet been able or 
seen fit to provide. It may yet be that other 
organizations will step in to fill the vac- 
uum, such as the Association for Compu- 
tation Machinery 's SIG-Forth, which sees 
itself as a natural forum for the profes- 
sional Forth programmer. 

Also, FIG has been drifting slightly 
under the influence of a quite natural proc- 
ess of new faces coming into the organiza- 
tion to replace experienced hands, your 
correspondent finding himself among the 
former culpable grouping. 

Many suggestions have been offered, 
many plans have been laid for the continu- 
ation of the work of the Forth Interest 
Group. Those interested in summaries of 
these suggestions, or in making sugges- 
tions of their own, will find the most ready 
audience waiting in the various telecom 
institutions growing up with Forth — see 
the "Reference Section" elsewhere in this 
issue. Furthermore, any chapter can sub- 
scribe to our monthly Chapters Newslet- 
ter by contacting me on any of those 
services or at my UUCP address of 
jax@well.UUCP, well!jax@lll- 
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winken.arpa, or alternatively by shouting 
for my attention on USENET'S 
comp.lang.forth discussion group. 

Your Chapter Coordinator's personal 
offering to the FIG suggestion box is tried, 
trite, and true: the future is in the hands of 
youth. FIG has yet to try a major outreach 
to high schools in every city in the world 
where there exists a FIG chapter. IMHO 
(as we say in telecom) such a framework 
for the propagandization of the youthful 
entrant to the digital universe is long over- 
due. 

I feel very optimistic about FIG. The 
Forth Interest Group, in particular the Sili- 
con Valley FIG Chapter, was instrumental 
in my entry into the world of Forth. Fur- 
thermore, since May 1987, I have held 
three consecutive full-time Forth pro- 
gramming positions, two obtained 
through FIG meetings, the latest and cur- 
rent position here in Colorado found in the 
"Programmer Wanted" ads on the GEnie 
FIGRT. 

I see no reason why the Forth Interest 
Group cannot continue to offer a friendly 
and helpful gateway to Forth for the begin- 
ner while serving the changing and varied 
needs of the professional. Innovation and 
dedication will be required from the mem- 
bers of the world' s oldest fraternal associa- 
tion of Forth programmers, which will no 
doubt be available in abundance, since are 
not innovation and dedication the very 
hallmarks of the Forth programmer? 
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1988 PROGRAMMERS CONTEST 



Held at last year's FIG-sponsored 
"Real-Time Programming Convention," 
this event captured the spirit of the Forth 
programmer confronted with an unusual 
problem. The object of the contest was a 
closely held secret until the event began. 




Winners of the contest were Phil Burk 
and Mike Haas from Delta Research. 
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FIG 

CHAPTERS 



The FIG Chapters listed below 
are currently registered as active 
with regular meetings. If your 
chapter listing is missing or incor- 
rect, please contact Kent S afford at 
the FIG office's Chapter Desk. 
This listing will be updated in each 
issue of Forth Dimensions. If you 
would like to begin a FIG Chapter 
in your area, write for a "Chapter 
Kit and Application." Forth Inter- 
est Group, P.O. Box 8231, San 
Jose, California 95155 

U.S.A. 

• ALABAMA 
Huntsville Chapter 

Tom Konantz 
(205) 881-6483 

• ALASKA 

Kodiak Area Chapter 

Horace Simmons 
(907) 486-5049 

• ARIZONA 
Phoenix Chapter 

4th Thurs., 7:30 p.m. 
AZ State University 
Memorial Union, 2nd floor 
Dennis L. Wilson 
(602) 956-7578 

• ARKANSAS 

Central Arkansas Chapter 

Little Rock 

2nd Sat., 2 p.m. & 

4th Wed., 7 p.m. 

Jungkind Photo, 12th & Main 

Gary Smith (501) 227-7817 

• CALIFORNIA 

Los Angeles Chapter 
4th SaL, 10 ajn. 
Hawthorne Public Library 
12700 S. Grevillea Ave. 
Phillip Wasson 
(213) 649-1428 



North Bay Chapter 

2nd Sat., 10 a.m. Forth, AI 
12 Noon Tutorial, 1 p.m. Forth 
South Berkeley Public Library 
George Shaw (415) 276-5953 

Orange County Chapter 
4th Wed., 7 p.m. 
Fullerton Savings 
Huntington Beach 
NoshiT Jesung (714) 842-3032 

Sacramento Chapter 
4th Wed., 7 p.m. 
1708-59th St., Room A 
Tom Ghormley 
(916) 444-7775 

San Diego Chapter 

Thursdays, 12 Noon 
Guy Kelly (619) 454-1307 

Silicon Valley Chapter 

4th Sat., 10 a.m. 

H P Cupertino 

Bob Barr (408) 435-1616 

Stockton Chapter 

Doug Dillon (209) 931-2448 

• COLORADO 
Denver Chapter 
IstMon., 7 p.m. 

Clifford King (303) 693-3413 

• CONNECTICUT 

Central Connecticut Chapter 

Charles Krajewski 
(203) 344-9996 

• FLORIDA 
Orlando Chapter 

Every other Wed., 8 p.m. 
Herman B. Gibson 
(305) 855^790 



Southeast Florida Chapter 

Coconut Grove Area 

John Forsberg (305) 252-0108 

Tampa Bay Chapter 

1st Wed., 7:30 p.m. 

Terry McNay (813) 725-1245 

• GEORGIA 
Atlanta Chapter 

3rd Tues., 6:30 p.m. 
Western Sizzlen, Doraville 
Nick Hennenfent 
(404) 393-3010 

• ILLINOIS 

Cache Forth Chapter 
Oak Park 

Clyde W. Phillips, Jr. 
(312) 386-3147 

Central Illinois Chapter 

Champaign 

Robert Illyes (217) 359-6039 

• INDIANA 

Fort Wayne Chapter 

2nd Tues., 7 p.m. 

I/P Univ. Campus, B71 Neff 

Hall 

Blair MacDermid 
(219)749-2042 

• IOWA 

Central Iowa FIG Chapter 
1st Tues., 7:30 p.m. 
Iowa State Univ., 214 Comp. 
Sci. 

Rodrick Eldridge 
(515)294-5659 

Fairfield FIG Chapter 

4th Day, 8:15 p.m. 

Gurdy Leete (515) 472-7077 



• MARYLAND 
MDFIG 

Michael Nemeth 
(301) 262-8140 

• MASSACHUSETTS 
Boston Chapter 

3rd Wed., 7 p.m. 
Honeywell 

300 Concord, Billerica 

Gary Chanson (617) 527-7206 

• MICHIGAN 
Detroit/Ann Arbor Area 
4th Thurs. 

Tom Chrapkiewicz 
(313)322-7862 

• MINNESOTA 
MNFIG Chapter 

Minneapolis 

Even Month, 1st Mon., 7:30 
p.m. 

Odd Month, 1st Sat., 9:30 a.m. 
Fred Olson (612) 588-9532 
NC Forth BBS (612) 483-671 1 

• MISSOURI 
Kansas City Chapter 
4th Tues., 7 p.m. 
Midwest Research Institute 
MAG Conference Center 
Linus Orth (913) 236-9189 

St Louis Chapter 
1st Tues., 7 p.m. 
Thornhill Branch Library 
Robert Washam 
91 Weis Drive 
Ellisville, MO 63011 

• NEW JERSEY 
New Jersey Chapter 
Rutgers Univ., Piscataway 
Nicholas Lordi 
(201)338-9363 
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• NFW MFXICO 


Dallas Chapter 


Sydney Chapter 


• HOLLAND 


Albuquerque Chapter 


4th Thurs., 7:30 p.m. 


2nd Fri., 7 p.m. 


Holland Chapter 


1 <tt T*hiirc 7*^0 n m 

1M 1 UUI3., 1 . JU LI .111. 


Texas Instruments 


John Goodsell Bide RM 


Vic Van de Zande 


Phv^icc Act rnn rvm v RlHc* 


13500 N. Central Expwy. 


LG19 


Finmark 7 


Univ. of New Mexico 


Semiconductor Cafeteria 


Univ. of New South Wales 


3831 JE Leusden 


Jon Bryan (505) 298-3292 


Conference Room A 


Peter Tregeagle 




Clif Penn (214) 995-2361 


10 Binda Rd., Yowie Bay 


• ITALY 


• NEW YORK 




2228 


FIG Italia 


FIG New York 


Houston Chapter 


02/524-7490 


Marco Tausel 


2nd Wed., 7:45 p.m. 


3rd Mon., 7:45 p.m. 




Via Gerolamo Forni 48 


Manhattan 


Intro Class 6:30 p.m. 


• BELGIUM 


20161 Milano 


Ron Martinez (2121 866-1 157 


Univ. at St. Thomas 


Belgium Chapter 


02/435249 




Russell Harris (713) 461-1618 


4th Wed., 8 p.m. 




Rochester Chapter 




Luk Van Loock 


• JAPAN 


Odd month, 4th Sat., 1 p.m. 


• VERMONT 


Lariksdreff 20 


Japan Chapter 


Monroe Comm. College 


Vermont Chapter 


2120 Schoten 


Toshi Inoue 


Bldg. 7, Rm.102 


Vergermes 


03/658-6343 


Dept. of Mineral Dev. Eng. 


Frank Lanzafame 


3rd Mon., 7:30 p.m. 




University of Tokyo 


(716) 482-3398 


Vergermes Union High School 


Southern Belgium Chapter 


7-3-1 Hongo, Bunkyo 113 




RM 210, Monkton Rd. 


Jean-Marc Bertinchamps 


812-2111 x7073 


• OHIO 


Hal Clark (802) 453-4442 


Rue N. Monnom, 2 




Cleveland Chapter 




B-6290Nalinnes 


• NORWAY 


4th Tues., 7 p.m. 


• VIRGINIA 


071/213858 


Bergen Chapter 


Chagrin Falls Library 


First Forth of Hampton 




Kjell Birger Faeraas, 


Garv ft er*? strom 

V_J U-l y -U vl tL J U KJ1H 


Roads 


• CANADA 


47-518-7784 


(216) 247-2492 


William Edmonds 


BC FIG 






(804) 898-4099 


1st Thurs., 7:30 p.m. 


• REPUBLIC OF CHINA 


Columbus FIG Chapter 




BCJT, 3700 Willingdon Ave. 


R.O.C. Chapter 


Terry Webb 


Potomac FIG 


BBY, Rm. 1A-324 


Chin-Fu Liu 


(614) 878-7241 


D.C. & Northern Virginia 


Jack W. Brown (604) 596- 


5F, #10, Alley 5, Lane 107 




1st Tues. 


9764 


Fu-Hsin S. Rd. Sec. 1 


Dayton Chapter 


Lee Recreation Center 


BBS (604) 434-5886 


TaiPei, Taiwan 10639 


2nd Tues. & 4th Wed., 6:30 


5722 Lee Hwy., Arlington 






p.m. 


Joseph Brown 


Northern Alberta Chapter 


• SWEDEN 


CFC. 11 W. Monument Ave. 


(703) 471^1409 


4th Sat., 10a.m.-noon 


SweFIG 


#612 


E. Coast Forth Board 


N. Alta. Inst, of Tech. 


Per Aim 


Gary Ganger (513) 849-1483 


(703) 442-8695 


Tony Van Muyden 


46/8-929631 






(403) 486-6666 (days) 




• OREGON 


Richmond Forth Group 


(403) 962-2203 (eves.) 


• SWITZERLAND 


Willamette Valley Chapter 


2nd Wed., 7 p.m. 




Swiss Chapter 


4th Tues., 7 p.m. 


154 Business School 


Southern Ontario Chapter 


Max Hugelshofer 


Linn-Benton Comm. College 


Univ. of Richmond 


Quarterly, 1st Sat., Mar., Jun., 


Industrieberatung 


Pann McCuaig (503) 752-5113 


Donald A. Full 


Sep., Dec., 2 p.m. 


Ziberstrasse 6 




(804) 739-3623 


Genl. Sci. Bldg., RM 212 


8152 Opfikon 


• PENNSYLVANIA 




McMaster University 


01 810 9289 


Villanova Univ. FIG Chapter 


• WISCONSIN 


Dr. N. Solntseff 




Bryan Stueben 


Lake Superior Chapter 


(416)525-9140x3443 


SPECIAL GROUPS 


321-C Willowbrook Drive 


2nd Fri., 7:30 p.m. 




• NC4000 Users Group 


Jeffersonville, PA 19403 


1219 N. 21st St., Superior 


• ENGLAND 


John Carpenter 


(215) 265-3832 


Allen Anway (715) 394-4061 


Forth Interest Group-UK 


1698 Villa St. 






London 


Mountain View, CA 94041 


• TENNESSEE 




1st Thurs., 7 p.m. 


(415) 960-1256 (eves.) 


East Tennessee Chapter 


INTERNATIONAL 


Polytechnic of South Bank 


Oak Ridge 


• AUSTRALIA 


RM408 




3rd Tues., 7 p.m. 


Melbourne Chapter 


Borough Rd. 




Sci. Appl. Int'l. Corp., 8th Fl 


1st Fri., 8 p.m. 


D.J. Neale 




800 Oak Ridge Turnpike 


Lance Collins 


58 Woodland Way 




Richard Secrist 


65 Martin Road 


Morden, Surry SM4 4DS 




(615)689-8161 


Glen Iris, Victoria 3146 






03/29-2600 


• FINLAND 




• TEXAS 


BBS: 61 3 299 1787 


FinFIG 




Austin Chapter 




Janne Kotiranta 




Matt Lawrence 




Arkkitehdinkatu 38 c 39 




POBox 180409 




33720 Tampere 




Austin, TX 78718 




+358-31-184246 
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New from the Forth Interest Group 



THE PROCEEDINGS OF THE FIRST 

AUSTRALIAN 

FORTH 

SYMPOSIUM 




Proceedings of the First 
Australian Forth Symposium 
Organized by Forth users 
from industrial and academic 
organizations. Held May 19- 
20, 1988 at the University of 
Technology Sydney School of 
Physical Sciences. 154 pages. 

00 



$24* 





FORML CONFERENCE 
PROCEEDINGS 



























































































Distributed by Forth Interest Group . 
P.O. Box 8231 San Jose CA 95155 



Tenth Annual FORML 
Conference 

These proceedings contain 
papers from the FORML 
Conference held November 
25-28, 1988 at the Asilomar 
Conference Center, Pacific 
Grove, California. 156 pages. 

$24Pj) 



Special introductory offer available-buy 
both books together-total price $40^. 

Mark Order Form: FORML Special. 

FIG members entitled to additional membership discount-see order form. 
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San Jose, CA 95155 
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